Предмет: Информатика,
автор: elwi5
Помогите пожалуйста
решать в паскале
Приложения:

Ответы
Автор ответа:
2
Ответ:
0
Объяснение:
var x,y: integer;
begin
readln(x); // Вводим -19
if (x<=0) then y:=0;
if (x>0) and (x<=1) then y:=x;
if (x>1) then y:=x*x;
writeln(y); // Получаем 0
end.
LRSM:
Пометка "Лучший ответ" ставиться только если ответов несколько, или у меня не лучший ответ?
Похожие вопросы
Предмет: Русский язык,
автор: 1982324
Предмет: Українська мова,
автор: ikashperuk
Предмет: Английский язык,
автор: CharlieChaplin5
Предмет: Математика,
автор: лсьмтппоппаататсммс
Предмет: Информатика,
автор: eдинорожka