Егэ | информатика | 18 | логики | графики функций | много | 100 нужно подробное решение. ответ: 102

Тебе нужно чтоб все расписано было ?

Var   a, b, c, d: integer;   x, x2: real; begin   write('введите a: ');   readln(a);   write('введите b: ');   readln(b);   write('введите c: ');   readln(c);   d : = sqr(b) - 4 * a * c;   if d > 0 then begin       x : = (-b - sqrt(d)) / 2 * a;       x2 : = (-b + sqrt(d)) / 2 * a;       writeln('x1 = ', x, newline, 'x2 = ', x2);   end;   if d < 0 then writeln('корней нет.');   if d = 0 then begin       x : = (-b) / 2 * a;       writeln('x = ', x);   end; end.

Var   a, b, c, d: integer;   x, x2: real; begin   write('введите a: ');   readln(a);   write('введите b: ');   readln(b);   write('введите c: ');   readln(c);   d : = sqr(b) - 4 * a * c;   if d > 0 then begin       x : = (-b - sqrt(d)) / 2 * a;       x2 : = (-b + sqrt(d)) / 2 * a;       writeln('x1 = ', x, newline, 'x2 = ', x2);   end;   if d < 0 then writeln('корней нет.');   if d = 0 then begin       x : = (-b) / 2 * a;       writeln('x = ', x);   end; end.