Question

Виводяться 7 цілих чисел з клавіатури. Знайти суму чисел кратних 3.
Выводятся 7 целых чисел с клавиатуры. Найти сумму чисел кратных 3.
Написать программный код​

Answer 1

var n, i, sum: integer;

begin

   sum:=0;

   i:=1;

   repeat

       write('Введите ', i, '-e число: ');

       readln(n);

       i += 1;

       

       if n mod 3 = 0 then

           sum += n;

   until i > 7;

   writeln('Сумма кратных 3-м: ', sum);

end.