Для поиска таких чисел можно использовать перебор. Напишем программу на Паскале, которая будет искать такие числа:program SquareNumbers;
var
num, square, lastThreeDigits: integer;
begin
for num := 100 to 999 do
begin
square := num * num;
lastThreeDigits := square mod 1000;
if lastThreeDigits = num then
writeln$num$;
end;
end.Для нахождения суммы таких чисел можно также использовать перебор и условие. Напишем программу на Паскале:program SumNumbers;
var
num, sum: integer;
begin
sum := 0;
for num := 21 to 99 do
begin
if $nummod3=0$ and $(nummod10=2)or(nummod10=4)or(nummod10=8)$ then
sum := sum + num;
end;
writeln${}^{\prime }Суммачисел{:}^{\prime },sum$;
end.

Эти программы помогут вам найти ответы на поставленные вопросы.