Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 6 или 11. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность).

Количество чисел не превышает 1000. Введённые числа не превышают

30 000.

Программа должна вывести одно число: количество чисел, кратных 6 или 11.

Question

Информатика

Курайш

28 сентября, 07:07

Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 6 или 11. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность).

Количество чисел не превышает 1000. Введённые числа не превышают

30 000.

Программа должна вывести одно число: количество чисел, кратных 6 или 11.

+3

Ответы (1)

Знаете ответ на вопрос?

Аятшах · Answer 1

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)