Задать вопрос
19 ноября, 04:05

Найти среднее арифметическое N-чисел, введенных с клавиатуры, кратных 3 и 5 одновременно. В паскале.

+3
Ответы (1)
  1. 19 ноября, 06:30
    0
    var

    a, i, sum, y : integer; / / объявляем переменные целочисленного типа.

    begin

    a : = 1; / / нужно для выполнения цикла while.

    writeln ('введите последовательность положительных чисел, окончание ввода - число 0:');

    while a 0 do / / начало цикла.

    begin

    readln (a); / / считываем число, введенное с клавиатуры.

    if ((a mod 3 = 0) and (a mod 5 = 0) and (a 0)) then / / проверяем кратность числа 3 и 5.

    begin

    sum : = sum + a; / / считаем сумму чисел.

    y : = y + 1; / / считаем количество чисел.

    end;

    end;

    write ('Среднее арифметическое произведение чисел равно: ', round (sum / y, 2));

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