Народ, помгите! Составьте алгоритм нахождения суммы всех двухзначных чисел, кратных трем, используя цикл с параметром

Question

Информатика

Тимофеич

16 марта, 07:06

Народ, помгите! Составьте алгоритм нахождения суммы всех двухзначных чисел, кратных трем, используя цикл с параметром

+3

Ответы (1)

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

Олеся · Answer 1

Var

i:integer;

begin

for i:=12 to 99 do

if (i mod 3) = 0 then Write (i:3)

end.

Тестовое решение:

12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99