yulechkapopova4
24.05.2022 18:44

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательноеги, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6.

Пример работы программы:

Входные данные Выходные данные

3
12
25 18
6

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
правый1488
04.08.2020 18:52

var n,i,kol,chislo: integer;

begin

write('Введите количество чисел ');

read(kol);

for i:=1 to kol do

begin

write('Введите число ');

read(chislo);

if (chislo mod 6 = 0) then n:=n+chislo;

end;

write('Cумма чисел кратных 6: ',n);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота