Задача 48769 ...

ienatyt

2020-04-29 05:53:13

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

ggg

2020-04-29 07:54:19

program usl_oper:
var
x,y: integer;
begin
write('x=');
read (x);
if x<=0 then
y:=0
else
if x<=1 then
y:=x
else
y:=Sqr(x);
wpite('y=;y)
enol