Задать вопрос
18 июня, 20:08

1) Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, кратных 3 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). 2) Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вводятся с клавиатуры; a>=200);

+3
Ответы (1)
  1. 18 июня, 21:02
    0
    1) program zz1;

    var x, y:integer; / / задаем переменные целого типа

    begin

    read (x);

    if (x mod 3 = 0) and (x mod 10 = 4) then y:=y + 1;

    while x 0 do / / организуем цикл, в котором будем вводить числа последовательности, пока не введем ноль

    begin

    read (x);

    if (x mod 3 = 0) and (x mod 10 = 4) then y:=y + 1; / / проверяем, если число последовательности кратное трем и оканчивающихся на четыре, то считаем его

    end;

    write (' Количество чисел последовательности кратных трем и оканчивающихся на четыре = ', y); / / выводим ответ

    end.

    2. program zz1;

    var a, b, r, i : integer; / / задаем переменные целого типа

    begin

    write (' введите a '); / / вводим с клавиатуры число

    read (a);

    for i:=a to 200 do

    begin

    r:=r + i; / / вычисляем сумму чисел

    b:=b + 1;

    end;

    write (' среднее арифметическое = ', r/b); / /выводим ответ

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