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

Помогите пожалуйста
решать в паскале

Приложения:

Ответы

Автор ответа: LRSM
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: Пометка "Лучший ответ" ставиться только если ответов несколько, или у меня не лучший ответ?
Похожие вопросы
Предмет: Математика, автор: лсьмтппоппаататсммс