Question

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

Answer 1

Ответ:

var x,y: real;

begin

write('Введите x: ');

readln(x);

if (x<=0) then y:=0

else if (x<=1) then y:=x

else y:=x*x;

writeln(y:3:0);

end.