Решить в программе паскаль АВС
Var x:integer;
begin
readln(x);
if x>=0 then writeln(y=,x+2) else writeln(y=,sqr(x));
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var x:integer;
begin
readln(x);
if x>=0 then writeln(y=,x+2) else writeln(y=,sqr(x));
end.