Основы алгоритмизации исполните алгоритм при х=13 у=18

Question

Информатика: Основы алгоритмизации исполните алгоритм при х=13 у=18

sashanatashakes · Accepted Answer

Vara,b,c,d,x1,x2: real; begin writeln( Дано уравнение вида ax^2+bx+c=0 ); Writeln ( Укажи переменную a ); readln(a); Writeln ( Укажи переменную b ); readln(b); Writeln ( Укажи переменную c ); readln(c); if a = 0  then writeln( Не квадратное уравнение! )  else begin       d:= sqr(b)-4*a*c;       if d 0 then writeln( Нет корней )                else begin                     x1:= (-b+sqrt(d))/2*a;                     x2:= (-b-sqrt(d))/2*a;                     writeln ( X1 = ,x1,  X2 = ,x2);      ...

MOGZ ответил