Регистрация
вадим887
18.01.2023 03:30
Информатика
Есть ответ 👍

Дам за все эти задания от 1 до С Задание не сложное​

108
296
Посмотреть ответы 1

Ответы на вопрос:

Anastasia9311
Anastasia9311
4,5(24 оценок)
Vara, b, c, x, x1, x2, d, max: real; beginwrite('введите a: '); readln(a); write('введите b: '); readln(b); write('введите c: '); readln(c); d : = b * b + 4 *a * c; if d > 0 then    begin      x1 : = (-b + sqrt(d))/(2 * a);     x2 : = (-b - sqrt(d))/(2 * a);     if x1 > x2 then max : = x1 else max : = x2;   end  else if d = 0 then max : = -b /(2 * a); if ( d < 0) then writeln('корней нет')else writeln(max * max);       end.

Популярно: Информатика