Юрий
5 год назад
Пожалуйста посчитайте решить срочно
ОТВЕТЫ
Elliott Marcus
Oct 24, 2020
var
x,y:integer;
begin
readln (x);
if x<-10 then y:=x+50
else
if (x > -10) and (x<0) then y:=2*x
else
y:=3*(x*x)+1;
writeln (y);
end.
x,y:integer;
begin
readln (x);
if x<-10 then y:=x+50
else
if (x > -10) and (x<0) then y:=2*x
else
y:=3*(x*x)+1;
writeln (y);
end.
714
Смежные вопросы:
