Предмет: Информатика,
автор: invisibl20lose
ПОМОГИТЕ ПОЖАЛУЙСТА!!
Приложения:
Ответы
Автор ответа:
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
Предмет: Английский язык,
автор: Леденая2
Предмет: Қазақ тiлi,
автор: арнұр
Предмет: Физика,
автор: ПОЕДАТЕЛЬЗНАНИЙ1
Предмет: Обществознание,
автор: daurenzhumanov15