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

Question

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

Answer 1

Ответ:

program ggvfgg;

var

x, y: real;

bool: boolean;

begin

readln(x);

begin

if x <= 0 then</p>

y := 0 end ;

begin

if x < 1 then

y := x end ;

begin

if x > 1 then

y := sqr(x) ;

end;

writeln(y: 3: 0);

end.