Предмет: Информатика,
автор: janejanejane2704
❗❗❗СРОЧНО ❗❗❗
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательноеги, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6.
Пример работы программы:
Входные данные Выходные данные
3
12
25 18
6
Приложения:

mrpansar:
Язык?
Ответы
Автор ответа:
1
Ответ:
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.
Интересные вопросы
Предмет: Русский язык,
автор: aldiarbakytov
Предмет: Русский язык,
автор: guf19980209
Предмет: Английский язык,
автор: stah06
Предмет: Алгебра,
автор: mskian