Регистрация
Fkbyfitdxtyrj
14.01.2023 05:34
Информатика
Есть ответ 👍

Только не пишите бред Если не знаете – не отвечайте

101
175
Посмотреть ответы 2

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

Udnyoj
Udnyoj
4,7(85 оценок)

var a,b,c,D: real;

begin

writeln('программа решения квадратного уравнения ax^2+bx+c=0');

write('a=');

readln(a);

write('b=');

readln(b);

write('c=');

readln(c);

D:=b*b-4*a*c;

if a=0 then write('a=0 => уравнение вырождается в линейное => x=-c/b=',-c/b)  

else if D>0 then begin

writeln('x1=',(-b+sqrt(D))/(2*a));

writeln('x2=',(-b-sqrt(D))/(2*a));

end else if D=0 then writeln('x1=x2=',-b/(2*a))

else writeln('уравнение не имеет действительных корней');

end.

Юля5454554
Юля5454554
4,5(75 оценок)

это оперативная память, иначе называется озу - оперативное запоминающее устройство, по ram - random access memory

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