Контрольные задания > 11. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. Программа должна вывести одно число — сумму чисел, кратных 6.
Вопрос:

11. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. Программа должна вывести одно число — сумму чисел, кратных 6.

Смотреть решения всех заданий с листа

Ответ:

program SumMultiplesOf6;
var n, i, num, sum: integer;
begin
sum := 0;
readln(n);
for i := 1 to n do
begin
readln(num);
if num mod 6 = 0 then
sum := sum + num;
end;
writeln(sum);
end.
ГДЗ по фото 📸
Подать жалобу Правообладателю

Похожие