Квадраты некоторых трехзначных чисел оканчиваются тремя цифрами, которые как раз и со-ставляют исходные числа. Найти все такие

[monokol]

Квадраты некоторых трехзначных чисел оканчиваются тремя цифрами, которые как раз и со-ставляют исходные числа. Найти все такие числа.

[Артём-Программиzd]

может так:

VAR i:longint;
BEGIN
  for i:=100 to 999 do
    if(i=sqr(i) MOD 1000) then writeln(i);
END.

ну или:

BEGIN
  writeln(376);
  writeln(625);
END.