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

Question

Информатика

Вавуся

20 июля, 14:53

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

+2

Ответы (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