Предмет: Информатика,
автор: Patron888
Запиши программу на языке Паскаль для
Приложения:

Patron888:
ответ пж
Ответы
Автор ответа:
4
var x,y:integer;beginread(x);if x<= 0 then y := 0; if x>0 then if x<=1 then y:=x; if x>1 then y:=x*x; write(y); end.
Похожие вопросы
Предмет: Химия,
автор: heheheheh123qwe
Предмет: Математика,
автор: artemroman33
Предмет: Қазақ тiлi,
автор: olgamaksi18
Предмет: Алгебра,
автор: 3y6koB1
Предмет: Литература,
автор: Stark228822