Запиши программу ** языке Паскаль для: 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 = 6 Я не понимаю... Помогите, пожалуйста!

Answer 1

Вывод:

36

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

program raf105;

var

 x,y: real;

begin

 write('x = ');

 readln(x);

 if x

   then y:= 0;

 if (0 < x) and (x

   then y:= x;

 if x > 1

   then y:= power(x,2);

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

end.

PascalABC 3.4.2