Question

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

Я не понимаю... Помогите, пожалуйста!

Answer 1

Вывод:

36

Код программы:

program raf105;

var

 x,y: real;

begin

 write('x = ');

 readln(x);

 if x <= 0

   then y:= 0;

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

   then y:= x;

 if x > 1

   then y:= power(x,2);

 writeln('y = ',y:3:0);

end.

PascalABC 3.4.2