• Предмет: Информатика
  • Автор: pashinihnikita
  • Вопрос задан 7 лет назад

помогите с программой в паскале!!!

Пожалуйста

Приложения:

Ответы

Ответ дал: Helper211
0

Ответ:

var x,y:real;

begin

write('Введите x: ');

readln(x);

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

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

else y:=x*x;

writeln(y:3:0);

end.

Приложения:
Похожие вопросы