Question

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

Answer 1

Ответ:

var

n, i, a, z: integer;

begin

z := 0;

read(n);

for i := 1 to n do

begin

read(a);

if a mod 6 = 0 then

z := z + 1

end;

writeln(z);

end.

Answer 2

// PascalABC.NET

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Count(p -> p mod 6 = 0).Print

end.