Var

a,b,c:integer;

begin

a:=−41;

b:=abs(a);

writeln('abs(−41)=',b);

c:=sqr(b);

writeln('sqr(b)=',c);

c:=sqr(b+b);

writeln('sqr(b+b)=',c);

end.

При запуске программы вывод на экран:

abs(−41)=

sqr(b)=

sqr(b+b)=

​

Maksim777900    1   23.04.2020 15:46    1