Question

Найти сумму цифр, делящихся на 3 из промежутка [20;40]

Answer 1

Var i,sum: integer;
Begin
sum:=0;
for i:=20 to 40 do
begin
if i mod 3=0 then
begin
writeln('Число: ',i);
sum:=sum+i;
end;
end;
writeln('Сумма чисел: ',sum);
End.

Answer 2

Чтобы найти сумму цифр всех чисел из промежутка [20;40], которые делятся на 3, следует выполнить следующие шаги:

1. Составить список всех чисел в промежутке [20;40].
2. Из этого списка выбрать только числа, которые делятся на 3 без остатка.
3. Найти сумму цифр для каждого из этих чисел.
4. Просуммировать все найденные суммы цифр.

Давайте выполним эти шаги:

1. Список чисел в промежутке [20;40]: 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40.

2. Выбираем числа, которые делятся на 3: 21, 24, 27, 30, 33, 36, 39.

3. Найдем сумму цифр для каждого из этих чисел:

   • 21: 2 + 1 = 3
   • 24: 2 + 4 = 6
   • 27: 2 + 7 = 9
   • 30: 3 + 0 = 3
   • 33: 3 + 3 = 6
   • 36: 3 + 6 = 9
   • 39: 3 + 9 = 12

4. Просуммируем все найденные суммы цифр: 3 + 6 + 9 + 3 + 6 + 9 + 12 = 48.

Таким образом, сумма цифр всех чисел из промежутка [20;40], которые делятся на 3, равна 48.