Предмет: Информатика, автор: cat8321

ПОЖАЛУЙСТА ПОМОГИТЕ ДАЮ 20 БАЛЛОВ
запиши программу на языке паскаль ​

Приложения:

Ответы

Автор ответа: Helper211
1

Ответ: 169.

var x,y: real;

begin

readln(x);

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

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

else y:=x*x;

writeln(y);

end.

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