Регистрация
Anna45891
25.07.2021 06:36
Информатика
Есть ответ 👍

Укажите виды роботов​

257
301
Посмотреть ответы 1

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

Хэлпер228666
Хэлпер228666
4,4(31 оценок)
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.

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