
Сузин
5 год назад
Пожалуйста посчитайте выполнить пожалуйста. заранее спасибо.

ОТВЕТЫ

Marsh Tyler
Oct 24, 2020
var x,y:integer;
begin
read (x);
if x<0 then y:=sqr(x);
if x>=0 then y:=x+2;
writeln(y);
end.
begin
read (x);
if x<0 then y:=sqr(x);
if x>=0 then y:=x+2;
writeln(y);
end.
386
Смежные вопросы: