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


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

alexvelova alexvelova    3   17.01.2021 12:41    0

Ответы
PolinaКэт PolinaКэт  17.01.2021 12:50

Объяснение:

Var x,y: real;

begin

write('введите х:

readln(x);

if(x<=0) then y:=0

else if(x<=1) then y:=x

else y:=x*x;

writeln(y:3:0);

end.


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