Предмет: Информатика,
автор: cat8321
ПОЖАЛУЙСТА ПОМОГИТЕ ДАЮ 20 БАЛЛОВ
запиши программу на языке паскаль
Приложения:
Ответы
Автор ответа:
1
Ответ: 169.
var x,y: real;
begin
readln(x);
if (x<=0) then y:=0
else if (x<=1) then y:=x
else y:=x*x;
writeln(y);
end.
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: xuliganka1999
Предмет: Русский язык,
автор: filippovatanuh
Предмет: Английский язык,
автор: safarova2000
Предмет: Математика,
автор: aysu131
Предмет: История,
автор: azaliyakalimul