Question

В последовательности чисел найти кол-во чисел кратных 7 Паскаль ABC​

Answer 1

Последовательность любая или есть какое то число? ну ладно сделаю так
var a,i:longint;
begin
read(a);
for i:= 1 to a do begin
if i mod 7= 0 do
write(i,' ');
end;
end.

Answer 2

Для нахождения количества чисел, кратных 7, в последовательности чисел, вам потребуется использовать цикл для перебора каждого числа в последовательности и проверку кратности каждого числа с помощью операции деления по модулю. Если число делится на 7 без остатка, то оно является кратным 7.

Учитывая, что вы хотите использовать язык программирования Pascal ABC, вот пример кода для решения этой задачи:

pascalCopy code
program CountMultiplesOfSeven;

var
  sequence: array of Integer;
  n, countMultiples: Integer;
  i: Integer;

begin
  WriteLn('Введите количество чисел в последовательности:');
  ReadLn(n);

  SetLength(sequence, n);

  WriteLn('Введите элементы последовательности:');
  for i := 0 to n - 1 do
    ReadLn(sequence[i]);

  countMultiples := 0;
  for i := 0 to n - 1 do
  begin
    if sequence[i] mod 7 = 0 then
      Inc(countMultiples);
  end;

  WriteLn('Количество чисел, кратных 7, в последовательности:', countMultiples);
end.

Вы можете скомпилировать и запустить этот код в среде разработки, поддерживающей Pascal ABC. После ввода элементов последовательности программа выдаст количество чисел, кратных 7, в этой последовательности.