Предмет: Информатика,
автор: Perecat
Помогите, пожалуйста. Надо запрограммировать) На любом языке
Приложения:
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: ajdarhansagit200
Предмет: Математика,
автор: gokarina516
Предмет: Алгебра,
автор: yan234n
Предмет: Обществознание,
автор: dashanikol14