Запиши программу ** языке Паскаль для: y = {0, если x ≤ 0 {x, если 0 < x ≤ 1 {x², если...

Question

Запиши программу на языке Паскаль для: y = {0, если x ≤ 0 {x, если 0 < x ≤ 1 {x², если x > 1 (y:3:0) Запусти программу и введи значение x=19

Answer 1

Var

a:integer;

Begin

Readln(a) ;

Begin

If a<=0 then</p>

Write('y=0') end;

Begin

If a=1 then

Write('y= ', a) end;

Begin

If a>1 then

Write('y= ', sqr(x)) end;

End.