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