Напишите алгоритм, который выводит все трёхзначные числа, квадрат записи которых оканчивается тремя цифрами, которые как раз и составляют рассматриваемое трёхзначное число. Входных данных у алгоритма нет.
Answers & Comments
APALoff
Var i : Integer; Begin For i:=100 to 999 do If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i)); end.
Answers & Comments
Begin
For i:=100 to 999 do
If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.
Результат:
376 * 376 = 141376
625 * 625 = 390625