Нужна в информатике(паскаль)
var
a,b,c:integer;
begin
a:=−36;
b:=abs(a);
writeln('abs(−36)=',b);
c:=sqr(b);
writeln('sqr(b)=',c);
c:=sqr(b+b);
writeln('sqr(b+b)=',c);
end.

Question

Информатика: Нужна в информатике(паскаль) var a,b,c:integer; begin a:=−36; b:=abs(a); writeln( abs(−36)= ,b); c:=sqr(b); writeln( sqr(b)= ,c); c:=sqr(b+b); writeln( sqr(b+b)= ,c); end.

tsts84 · Answer

- нужно убрать, тогда все работает!...

Нужна в информатике(паскаль) var a,b,c:integer; begin a:=−36; b:=abs(a); writeln('abs(−36)=',b); c:=sqr(b); writeln('sqr(b)=',c); c:=sqr(b+b); writeln('sqr(b+b)=',c); end.

Нужна в информатике(паскаль)
var
a,b,c:integer;
begin
a:=−36;
b:=abs(a);
writeln('abs(−36)=',b);
c:=sqr(b);
writeln('sqr(b)=',c);
c:=sqr(b+b);
writeln('sqr(b+b)=',c);
end.