var i: integer;
begin
for i:=100 to 999 do
if i*i mod 1000 = i then write(i,' - ',i*i,' ');
end.
Ответ:
376 - 141376 625 - 390625
var i: integer;
begin
for i:=100 to 999 do
if i*i mod 1000 = i then write(i,' - ',i*i,' ');
end.
Ответ:
376 - 141376 625 - 390625