Информатика Архивный вопрос

Срочно!!!Есть 10 минут!!!
Нужно сделать в Паскале y=b^2+4ac/4bc

Нет комментариев

Ответы

Гость

Var a,b,c:integer;
y: real;
begin
readln(a,b,c);
y:=(b*b)+(4*a*c)/(4*b*c);
writeln(y:0:2);
end.

Нет комментариев