Ответы
Ответ дал:
0
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var x:=ReadReal;
if x<=0 then write(0) else if x>1 then write(x**4) else write(x);
end.
//Версия 3.3, сборка 1627
begin
var x:=ReadReal;
if x<=0 then write(0) else if x>1 then write(x**4) else write(x);
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад