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.

Answer 3

Вот программа на языке Pascal, которая определяет количество чисел кратных 6 в последовательности натуральных чисел:

pascalCopy code
program CountMultiplesOf6;

var
  n, num, count: integer;

begin
  writeln('Введите количество чисел в последовательности:');
  readln(n);
  
  count := 0;
  
  writeln('Введите числа последовательности:');
  for i := 1 to n do
  begin
    readln(num);
    
    if (num mod 6 = 0) then
      count := count + 1;
  end;
  
  writeln('Количество чисел кратных 6 в последовательности: ', count);
end.

Эта программа сначала запрашивает у пользователя количество чисел в последовательности (n), а затем вводит сами числа. Она проверяет каждое число на кратность 6 с помощью оператора mod и увеличивает счетчик count, если число кратно 6. По завершении ввода последовательности программа выводит количество чисел кратных 6.