Question

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

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 ReadSeqInteger(n).Count(p -> (p mod 3 = 0) and p.IsEven).Print

end.

Answer 2

Конечно, вот пример программы на языке программирования Паскаль, который решает задачу подсчета количества четных чисел, кратных 3, в последовательности из N целых чисел:

pascalCopy code
program CountEvenMultiplesOfThree;

var
  N, num, count: integer;
  i: integer;

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

Программа запрашивает количество чисел в последовательности, затем просит ввести сами числа. Для каждого числа проверяется, является ли оно как четным, так и кратным 3, и в случае положительного ответа, увеличивает счетчик. В конце программа выводит количество четных чисел, кратных 3, в последовательности.

Пожалуйста, убедитесь, что ваша среда разработки поддерживает язык Pascal, и корректно настроена для компиляции и выполнения программ.