Предмет: Информатика,
автор: arinatikhonova06
помогите срочно!!!!!!
Приложения:

Ответы
Автор ответа:
0
var x:real;
begin
writeln('Введите значение x: ');
readln(x);
if x>1 then
writeln('y = ',x*x)
else
if x<=0 then
writeln('y = 0')
else
writeln('y = ',x)
end.
Приложения:

Интересные вопросы
Предмет: Русский язык,
автор: KoteAlice
Предмет: Окружающий мир,
автор: valyakrutsenko8
Предмет: Русский язык,
автор: Zama07
Предмет: Химия,
автор: CaptainTma
Предмет: Литература,
автор: jflxullpvshlck