Ответы
Ответ дал:
0
var x,y: Integer;
begin
readln(x);
if x<0 then y:=sqr(x) else
y:=sqr(x);
writeln(y);
end.
begin
readln(x);
if x<0 then y:=sqr(x) else
y:=sqr(x);
writeln(y);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад