Регистрация
Ychenik2525
17.04.2021 16:12
Информатика
Есть ответ 👍

Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 6 или 11. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 6 или 11.

105
302
Посмотреть ответы 2

Ответы на вопрос:

anjnazarova
anjnazarova
4,5(85 оценок)
Const n = 30; var a: array [1..n] of longint; i, j, k: longint; begin    for i: =1 to n do       readln(a[i]);       k: =0       for i: =0 to n do       begin           if (a[i]mod6=0) or (a[i]mod11=0) and (a[i]< > 0) then           inc(k);       writeln(k)
Keterina0905keka
Keterina0905keka
4,5(25 оценок)

Перечислил данные

3 4 5 84

Объяснение:

Популярно: Информатика