ПОМОГИТЕ ПОЖАЛУЙСТА!!
Приложения:

Ответы на вопрос
Ответил Ziorar
0
Результат, который выведет программа (число ноль, и если применять форматирование, которое там указано, то слева ещё и два пробела):
0
Сама программа:
var x,y: real;
begin
write('x= ');
read(x);
if x<=0 then y:=0
else if x>1 then y:=x*x
else y:=x;
write(y:3:0);
end.
Новые вопросы