// PascalABC.NET 3.3, сборка 1540 от 16.09.2017 // Внимание! Если программа не работает, обновите версию!
begin var n,p:integer; var s:string; for var a:=1 to 9 do for var b:=0 to 9 do for var c:=0 to 9 do begin n:=100*a+10*b+c; s:=(n*n).ToString.Right(3); p:=Pos(a.ToString,s); if p>0 then begin Delete(s,p,1); p:=Pos(b.ToString,s); if p>0 then begin Delete(s,p,1); if s=c.ToString then Write(n,'(',n*n,')',' ') end end end end.
Результат 205(42025) 376(141376) 421(177241) 625(390625) 963(927369)
Program chik; const n=15; var P:array[1..15]of real; i:integer; s:real; begin s:=0; for i:=1 to n do begin read(p[i]); if(i mod 2=0)and(p[i]<0)then s:=s+p[i]; end; writeln(s); end. 2) program gt; uses crt,graphabc; const n=7; var mac1,mac2,mac3:array[1..15]of real; i,k1,k2:integer; begin k1:=0;k2:=0; for i:=1 to n do begin read(mac1[i]); if(mac1[i]>0)then begin Inc(k1); mac2[k1]:=mac1[i]; end; if(mac1[i]<0)then begin Inc(k2); mac3[k2]:=mac1[i]; end; end; for i:=1 to n do write(mac1[i],' '); writeln; for i:=1 to k1 do write(mac2[i],' '); writeln; for i:=1 to k2 do write(mac3[i],' '); end.
// Внимание! Если программа не работает, обновите версию!
begin
var n,p:integer;
var s:string;
for var a:=1 to 9 do
for var b:=0 to 9 do
for var c:=0 to 9 do begin
n:=100*a+10*b+c;
s:=(n*n).ToString.Right(3);
p:=Pos(a.ToString,s);
if p>0 then begin
Delete(s,p,1);
p:=Pos(b.ToString,s);
if p>0 then begin
Delete(s,p,1);
if s=c.ToString then Write(n,'(',n*n,')',' ')
end
end
end
end.
Результат
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)