Запиши программу на языке Паскаль

віта9клас віта9клас    2   21.04.2020 20:01    0

Ответы
darina2605 darina2605  21.04.2020 22:30

ответ

144

Объяснение:

program Help;

var x: integer;

begin

readln(x);

if (x=0) or (x<0) then

write(0)

else

if (x>1) then

write(x*x)

else  

write(x);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика