• Главная
• Контакты
• Реклама
• Все записи

Вводится 10 целых чисел. Найти количество чисел, кратных 3 pascal. на турбо pascal напишите

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

program CountMultiplesOfThree;

var
  i, num, count: integer;

begin
  count := 0;

  writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
  begin
    readln(num);
    if num mod 3 = 0 then
      count := count + 1;
  end;

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

  readln;
end.

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