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

Write('y=0') end;

Begin

If a=1 then

Write('y= ', a) end;

Begin

If a>1 then

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

End.