Question

Паскаль срочно!!! •Цикл с предусловием. С клавиатуры вводятся положительные и отрицательные числа до тех пор, пока не будет введен 0 Найти количество положительных чисел, кратных 7.​

Answer 1

Ответ:

program pr;

 

var

 i, n, sum, m: integer;

 

begin

 writeln('Введите количество чисел');

 readln(n);

 sum := 0;

 for i := 1 to n do

 begin

   read(m);          

   if (m mod 4 = 0) and (m mod 10 = 4) then

     sum := sum + m;

 end;

 writeln;

 writeln('Сумма: ', sum);

end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке Pascal, реализующей указанную задачу:

pascalCopy code
program CountMultiplesOfSeven;

var
  num, count: integer;

begin
  count := 0; // Инициализируем счетчик положительных чисел, кратных 7
  
  repeat
    write('Введите число (0 для завершения): ');
    readln(num);
    
    if (num > 0) and (num mod 7 = 0) then
      count := count + 1;
  until num = 0;
  
  writeln('Количество положительных чисел, кратных 7: ', count);
end.

Эта программа использует цикл с предусловием (repeat...until), чтобы считывать числа с клавиатуры до тех пор, пока не будет введен 0. Внутри цикла проверяется, является ли введенное число положительным и кратным 7, и если это условие выполняется, увеличивается счетчик. По завершении цикла программа выводит количество положительных чисел, кратных 7.