Найти сумму всех целых трехзначных чисел которые делятся на 3 и 9 или оканчиваются 5

Question

Информатика

Ангелика

11 мая, 15:17

Найти сумму всех целых трехзначных чисел которые делятся на 3 и 9 или оканчиваются 5

+3

Ответы (1)

Знаете ответ на вопрос?

Сира · Answer 1

Var

i, s: longint;

begin

s : = 0;

for i : = 100 to 999 do

if (i mod 9 = 0) or (i mod 100 = 5) then s : = s + i;

{Если число делится на 9, то оно делится и на 3}

Writeln ('Сумма равна ', s)

end.

Результат выполнения программы:

Сумма равна 59490