Question

(паскаль) Требуется составить программу нахождения количества чисел кратных двум. Любая последовательность. Помогите пожалуйста!

Answer 1

Var a,k:integer;
begin
assign (input, 'input.txt'); reset (input);
assign (output, 'output.txt'); rewrite (output);
k:=0;
while (not Eof(input)) do
begin
 readln(a); if (a mod 2 =0)
 then
  k:=k+1;
end;
writeln(k);
end.

Answer 2

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

program CountEven;
var
  n, count, x: integer;
begin
  writeln('Введите количество чисел в последовательности:');
  readln(n);
  count := 0; // инициализируем счетчик нулем
  writeln('Введите числа последовательности:');
  for x := 1 to n do // цикл по всем числам
  begin
    readln(x); // считываем очередное число
    if x mod 2 = 0 then // проверяем, кратно ли оно двум
      count := count + 1; // увеличиваем счетчик на единицу
  end;
  writeln('Количество чисел, кратных двум, равно ', count);
end.

Надеюсь, это было полезно. Если у вас есть еще вопросы, я рад помочь.