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

ПОМОГИТЕ ПОЖАЛУЙСТА!!

Приложения:

Ответы

Автор ответа: 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.

Похожие вопросы
Предмет: Английский язык, автор: RomanKulaev
Предмет: Обществознание, автор: daurenzhumanov15