Question

Помогите с информатикой Задача: даны три числа, определить есть ли среди них кратные трём и сколько их. В ПАСКАЛЕ Срочно. Пожалуйста даю 40 баллов

Answer 1

все 3 переменные типа integer

Answer 2

Конечно, я могу помочь вам с этой задачей на Паскале. Вот пример программы, которая решает данную задачу:

pascalCopy code
program FindMultiplesOfThree;
var
  num1, num2, num3: integer;
  count: integer;

begin
  count := 0; // Инициализируем счетчик кратных чисел трём

  // Вводим три числа с клавиатуры
  writeln('Введите первое число:');
  readln(num1);
  
  writeln('Введите второе число:');
  readln(num2);
  
  writeln('Введите третье число:');
  readln(num3);

  // Проверяем каждое число на кратность трём и увеличиваем счетчик при необходимости
  if num1 mod 3 = 0 then
    count := count + 1;

  if num2 mod 3 = 0 then
    count := count + 1;

  if num3 mod 3 = 0 then
    count := count + 1;

  // Выводим результат
  writeln('Количество чисел, кратных трём: ', count);

end.

Эта программа позволит вам ввести три числа и определить, сколько из них кратны трём. Результат будет выведен на экран.

Надеюсь, это поможет вам решить задачу! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать.