Предмет: Информатика, автор: 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.

Patron888: https://znanija.com/task/28733253 вот это еще реши пж
Похожие вопросы
Предмет: Математика, автор: artemroman33
Предмет: Қазақ тiлi, автор: olgamaksi18
Предмет: Алгебра, автор: 3y6koB1