Задать вопрос

Выяснить сколько чисел кратных 3 среди n введенных

+4
Ответы (1)
  1. 19 мая, 06:31
    0
    var n, i, k, x:integer;

    begin

    readln (n);

    for i:=1 to n do begin

    read (x);

    if x mod 3 = 0 then inc (k);

    end;

    writeln (k);

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Выяснить сколько чисел кратных 3 среди n введенных ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
1. Напишите программу, которая находит количество чисел, кратных 3, но не кратных 6, в последовательности целых чисел.
Ответы (1)
Напишите программу, которая находит количество чисел, кратных 3, но не кратных 6, в последовательности целых чисел, вводимых клавиатуры. Признак конца ввода чисел 0. Количество введенных чисел заранее неизвестно.
Ответы (1)
напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 6 и оканчивающихся на 4. Программа получает на ввод натуральные числа, количество введенных чисел неизвестно.
Ответы (1)
Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4.
Ответы (1)
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4.
Ответы (1)