Регистрация
sha14558538
08.11.2020 23:38
Информатика
Есть ответ 👍

Напишите программу, решающую любое квадратное уравнение. паскал

147
149
Посмотреть ответы 2

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

Анoнuм
Анoнuм
4,4(93 оценок)
Program kv_ur; var a, b, c, d,  x1,x2, x: real; begin read(a, b, c); d: = sqr(b) - 4*a*c; if d< 0 then write('нет решений'); if d = 0 then                 begin                   x: = -b/(2*a); write('один корень:   ',x: 5: 2)                 end; if d> 0 then              begin               x1: =(-b+sqrt(d))/(2*a);                 x2: =(-b-sqrt(d))/(2*a);               write('два корня:   ', 'x1=',x1: 5: 2,'x2=',x2: 5: 2)             end end.
maximkh1
maximkh1
4,5(60 оценок)
Ночь - ноль -соль - сель -сень -день

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