
Борис
5 год назад
Пожалуйста посчитайте решить приз....

ОТВЕТЫ

Armbruster Eva
Oct 24, 2020
var
x,y:real;
begin
readln(x);
if x>=5 then y:=sqr(x)+2
else y:=1-cos(x);
writeln(y);
end.
x,y:real;
begin
readln(x);
if x>=5 then y:=sqr(x)+2
else y:=1-cos(x);
writeln(y);
end.
498