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

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.