Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — количество чисел, кратных 3. НА PASCAL!!!!

Answer 1

Ответ:

var  

 n,b,c: integer;

begin

 readln(n);

 while n > 0 do

   begin

   readln(b);

   if b mod 3 = 0 then

   begin

     c:= c +1;

   end;

   n:= n - 1;

   end;

 writeln(c)

end.

Answer 2

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

program CountMultiplesOfThree;
var
  n, number, count: integer;
begin
  count := 0;
  
  { Ввод количества чисел в последовательности }
  write('Введите количество чисел в последовательности: ');
  readln(n);
  
  { Ввод чисел и подсчет чисел, кратных 3 }
  write('Введите числа в последовательности: ');
  for var i := 1 to n do
  begin
    readln(number);
    if number mod 3 = 0 then
      count := count + 1;
  end;
  
  { Вывод количества чисел, кратных 3 }
  writeln('Количество чисел, кратных 3: ', count);
end.

Программа сначала запрашивает количество чисел в последовательности, а затем последовательно запрашивает сами числа. После каждого введенного числа программа проверяет, кратно ли оно 3, и увеличивает счетчик, если это так. В конце программа выводит количество чисел, кратных 3.

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

Источники: -