1. Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. Найти такие числа (например, 625: 625^2=390 625). 2. Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 или 8. Решить в Паскале

Предыдущий
вопрос Следующий
вопрос

Для поиска таких чисел можно использовать перебор. Напишем программу на Паскале, которая будет искать такие числа: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 (num mod 3 = 0) and ((num mod 10 = 2) or (num mod 10 = 4) or (num mod 10 = 8)) then
sum := sum + num;
end;
writeln('Сумма чисел: ', sum);
end.

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