Question

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

Answer 1

Ответ:

program exerc;

var a, b, c, d, e, count:integer;

begin

   count := 0;

 Readln(a); if a mod 3 = 0 then count += 1;  

 Readln(b); if b mod 3 = 0 then count += 1;  

 Readln(c); if c mod 3 = 0 then count += 1;  

 Readln(d); if d mod 3 = 0 then count += 1;

 Readln(e); if e mod 3 = 0 then count += 1;  

 Writeln('Чисел кратных 3 всего: ', count);

end.

Объяснение:

Answer 2

Конечно, вот пример программы на Pascal, которая считает количество чисел, кратных 3 в последовательности пяти натуральных чисел:

pascalCopy code
program CountMultiplesOfThree;

var
  i, num, count: integer;

begin
  count := 0;

  writeln('Введите последовательность пяти натуральных чисел:');

  for i := 1 to 5 do
  begin
    write('Число ', i, ': ');
    readln(num);

    if (num > 0) and (num mod 3 = 0) then
      count := count + 1;
  end;

  writeln('Количество чисел, кратных 3: ', count);

  readln;
end.

Эта программа сначала инициализирует счетчик count нулем. Затем она входит в цикл, который выполняется пять раз, чтобы получить пять натуральных чисел от пользователя. Если введенное число больше нуля и кратно 3 (проверяется с помощью оператора mod), то счетчик увеличивается на 1. По завершении цикла программа выводит количество чисел, кратных 3, в последовательности.