Запиши программу на языке Паскаль
Ответ
5/5 (1 оценка)
1
aisuuluu05 4 года назад
Светило науки - 2 ответа - 0 раз оказано помощи

Объяснение:

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.

Оцените пользу ответа
Мозг Отвечающий

Остались вопросы?

Задать вопрос