Question

Помогите, это срочно!!!!!!!!! Даю 35 б
Запиши программу на языке Паскаль для: y=
1)0,если x ≤ 0 ;
2)x,если если 0 < x ≤ 1 ; 3) x"2(икс квадрат),если x >1. (y:3:0) Запусти программу и введи значение x=4.
ЧИСЛО ВЫВЕДЕННОЕ НА ЭКРАН ЗАПИШИТЕ!!!!!!!!!!

Answer 1

program HelloWorld;

var x,y: integer;

begin

   

    x:=4;

       

    if (x<=0) then

        y:=0;

 

    if (x>=0) and (x<=1) then

        y:=x;

       

    if (x>1) then

        y:=sqr(x);

 

    write(y);

end.