1. Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. Найти такие числа (например, 625: 625^2=390 625). 2. Найти сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 или 8. Решить в Паскале
Для поиска таких чисел можно использовать перебор. Напишем программу на Паскале, которая будет искать такие числа:program SquareNumbers va num, square, lastThreeDigits: integer begi for num := 100 to 999 d begi square := num * num lastThreeDigits := square mod 1000 if lastThreeDigits = num the writeln(num) end end.Для нахождения суммы таких чисел можно также использовать перебор и условие. Напишем программу на Паскале:program SumNumbers va num, sum: integer begi sum := 0 for num := 21 to 99 d begi if (num mod 3 = 0) and ((num mod 10 = 2) or (num mod 10 = 4) or (num mod 10 = 8)) the sum := sum + num end writeln('Сумма чисел: ', sum) end.
Эти программы помогут вам найти ответы на поставленные вопросы.
va
num, square, lastThreeDigits: integer
begi
for num := 100 to 999 d
begi
square := num * num
lastThreeDigits := square mod 1000
if lastThreeDigits = num the
writeln(num)
end
end.Для нахождения суммы таких чисел можно также использовать перебор и условие. Напишем программу на Паскале:program SumNumbers
va
num, sum: integer
begi
sum := 0
for num := 21 to 99 d
begi
if (num mod 3 = 0) and ((num mod 10 = 2) or (num mod 10 = 4) or (num mod 10 = 8)) the
sum := sum + num
end
writeln('Сумма чисел: ', sum)
end.
Эти программы помогут вам найти ответы на поставленные вопросы.