Регистрация
marfmelov
03.05.2023 02:01
Информатика
Есть ответ 👍

9 сынып 2d ойынын курастыру

290
401
Посмотреть ответы 1

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

aylinafedorovaoyhkfx
aylinafedorovaoyhkfx
4,6(25 оценок)
Var a,b,c,d : real; begin   write('введите коэффициенты a b c: '); readln(a,b,c);   d: =b*b-4*a*c;   if d< 0 then writeln('решений нет') else       case d=0 of       true : writeln('x1 и x2 = ',-b/(2*a): 8: 4);       false : writeln('x1 = '+sqrt(d))/(2*a): 8: 4,'  x2 = '-sqrt(d))/(2*a): 8: 4);     end; end.

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