Question

Дана последовательность из N произвольных целых чисел. Написать программу, которая определяет, сколько в этой последовательности отрицательных чисел, кратных 7 (Использовать все три вида цикла For, While, Repeat)

Answer 1

Program SomeProgram;var a : array[0..3] of Integer = (1,7,-7,-14);    i : integer;    count : integer = 0;begin
    // с помощью for in, возможно вам нужно с помощью обычного for    for i in a do begin        if ((i div 7) < 0 ) then begin            count := count + 1;        end;    end;    writeln('(for) количество подходящих чисел: ', count);        // с помощью while    i := 0;    count := 0;    while (i < length(a)) do    begin        if ((a[i] div 7) < 0) then        begin            count := count + 1;        end;        i := i + 1;    end;    writeln('(while) количество подходящих чисел: ', count);        // с помощью repeat until    // тут главное правльно поставить условие после until    i := 0;    count := 0;    repeat        if ((a[i] div 7) < 0) then        begin            count := count + 1;        end;        i := i + 1;    until i = length(a);    writeln('(repeat until) количество подходящих чисел: ', count);    end.

Answer 2

Для определения количества отрицательных чисел, кратных 7, в данной последовательности из N целых чисел, можно использовать различные типы циклов. Вот пример программы на языке Pascal (PascalABC.NET), которая решает эту задачу с помощью трех типов циклов: For, While и Repeat:

pascalCopy code
program CountNegativeMultiplesOfSeven;

var
  N, number, countFor, countWhile, countRepeat: Integer;

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

  // Инициализация счетчиков
  countFor := 0;
  countWhile := 0;
  countRepeat := 0;

  // Цикл For
  WriteLn('--- Цикл For ---');
  for var i := 1 to N do
  begin
    Write('Введите число ', i, ': ');
    ReadLn(number);
    if (number < 0) and (number mod 7 = 0) then
      Inc(countFor);
  end;
  WriteLn('Количество отрицательных чисел, кратных 7: ', countFor);

  // Цикл While
  WriteLn('--- Цикл While ---');
  var j := 1;
  while j <= N do
  begin
    Write('Введите число ', j, ': ');
    ReadLn(number);
    if (number < 0) and (number mod 7 = 0) then
      Inc(countWhile);
    Inc(j);
  end;
  WriteLn('Количество отрицательных чисел, кратных 7: ', countWhile);

  // Цикл Repeat
  WriteLn('--- Цикл Repeat ---');
  var k := 1;
  repeat
    Write('Введите число ', k, ': ');
    ReadLn(number);
    if (number < 0) and (number mod 7 = 0) then
      Inc(countRepeat);
    Inc(k);
  until k > N;
  WriteLn('Количество отрицательных чисел, кратных 7: ', countRepeat);
end.

Эта программа запрашивает у пользователя количество чисел в последовательности и затем последовательно запрашивает сами числа. После каждой введенной цифры программа проверяет, является ли она отрицательным числом и кратной 7. Если это так, то соответствующий счетчик увеличивается на единицу. В конце программы выводится количество отрицательных чисел, кратных 7, для каждого типа цикла (For, While, Repeat).