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

Question

Информатика

Вива

23 января, 22:19

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

+3

Ответы (1)

Знаете ответ?

Адамыч · Answer 1

Var n, a, k, i:integer;

begin

write ('n = ') ;

readln (n) ;

k:=0;

for i:=1 to n do

begin

readln (a) ;

if a mod 6 = 0 then k:=k+1;

end;

writeln ('k = ', k) ;

end.

Пример:

n = 5

23

18

45

72

61

k = 2