Главная страница
Навигация по странице:


  • Количество чисел Пример

  • Нахождение максимального

  • Нахождение минимального

  • Нахождение среднего арифметического Пример

    		•

    огэ2016. Программа получает на вход количество чисел в последовательности, а затем сами числа Цикл while


    Скачать 31.08 Kb.
    НазваниеПрограмма получает на вход количество чисел в последовательности, а затем сами числа Цикл while
    Анкорогэ2016
    Дата18.11.2019
    Размер31.08 Kb.
    Формат файлаdocx
    Имя файлаOGE_2016_tasks_20-2.docx
    ТипПрограмма
    #95783

    При решении задачи № 20.2 необходимо вводить числа с использованием цикла. Выбор цикла осуществляем в зависимости от условия задачи:
    1. Цикл for: … Программа получает на вход количество чисел в последовательности, а затем сами числа…
    2. Цикл while: …Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность)…
    3. Проверку выполнения условия осуществляем сразу после ввода числа с использованием оператора условного перехода if … then… else
    • Кратность какому-либо числу (например, 4) a mod 4 = 0
    • Четные числа a mod 2 = 0
    • Нечетные числа a mod 2 <> 0
    • Оканчивающихся на какую-либо цифру (например, 4) a mod 10 = 4
    • Вторая цифра справа такая-то (например, 4) a div 100 mod 10 = 4
    • Однозначные натуральные числа (a<=0) and (a>10)
    • Двузначные натуральные числа (a>9) and (a<100)

    4. При решении задач на нахождение суммы (произведения) чисел необходимо до цикла:

    • Для суммы: s:=0

    • Для произведения: p:=1

    5. В цикле после проверки условия записываем: s:=s+a (p:=p*a)

    Количество чисел

    Пример

    Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, кратных 4.

    Program z20_1;

    var n,i,a,k: integer;

    begin

    write (‘Введите количество чисел в последовательности’);

    readln(n);

    k := 0;

    for i := 1 to n do

    begin

    write (‘Введите число ’);

    readln(a);

    if (a mod 4 = 0) then k := k + 1;

    end;

    writeln (‘Количество чисел, кратных 4 – ‘, k);

    end.

    Пример

    Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, кратных 4.

    Program z20_2;

    var a, k: integer;

    begin

    k:= 0;

    write (‘введите число’);

    readln (a);

    while a<>0 do 

    begin

    if (a mod 4 = 0) then k := k + 1;

    write (‘введите число’);

    readln (a); 

    end;

    writeln (k);

    end.

    Задания

    1. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, кратных 4.

    1. Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 7. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чётных чисел, кратных 7.

    1. Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество всех чётных чисел, кратных 3.

    1. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, меньших 500 и кратных 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество натуральных чисел, меньших 500 и кратных 3.

    1. Введите с клавиатуры 8 положительных целых чисел. Определите, сколько из них делятся на 3 и при этом заканчиваются на 4. Программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 4.

    1. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 8. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, оканчивающихся на 8.

    1. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 9. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 9. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, оканчивающихся на 9.

    1. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 8. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 8.

    1. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, кратных 6.

    1. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, оканчивающихся на 3.

    1. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, оканчивающихся на 6.

    1. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, кратных 3.

    1. Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество трёхзначных чисел, кратных 4.


    Нахождение суммы чисел
    1. При решении задач на нахождение суммы (произведения) чисел необходимо до цикла:

    • Для суммы: s:=0

    • Для произведения: p:=1

    2. В цикле после проверки условия записываем: s:=s+a (p:=p*a)
    Пример

    Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6 и оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, кратных 6 и оканчивающихся на 4.

    Program z20_2;

    var n, i, a, s: integer;

    begin

    write (‘Введите количество чисел в последовательности’);

    readln(n);

    s := 0;

    for i := 1 to n do

    begin

    write (‘Введите число ’);

    readln(a);

    if (a mod 6 = 0) and (a mod 10 = 4) then s := s + a;

    end;

    writeln (‘Сумма чисел, кратных 6 и оканчивающихся на 4 – ‘, s);

    end.

    Пример

    Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.

    Program z20_2;

    var a, s: integer;

    begin

    s:= 0;

    write (‘введите число’);

    readln (a);

    while a<>0 do 

    begin

    if (a mod 6 = 0) and (a mod 10 = 4) then s := s + a;

    write (‘введите число’);

    readln (a); 

    end;

    writeln (s);

    end.

    Задания

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 8. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 оканчивающихся на 8.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3 и оканчивающихся на 8. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 3 и оканчивающихся на 8.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 2.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 2.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму двухзначных чисел, кратных 5. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 − признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число: сумму двухзначных чисел, кратных 5.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 8 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех натуральных чисел, кратных 8 и оканчивающихся на 6.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 3 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех натуральных чисел, кратных 3 и оканчивающихся на 4.

    1. Введите с клавиатуры 5 положительных целых чисел. Вычислите сумму тех из них, которые делятся на 4 и при этом заканчиваются на 6. Программа должна вывести одно число: сумму чисел, кратных 4 и оканчивающихся на 6.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 5. Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести одно число: сумму чисел, оканчивающихся на 5.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 8. Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести одно число: сумму чисел, оканчивающихся на 8.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 3.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – сумму чисел, оканчивающихся на 4.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, оканчивающихся на 3.

    1. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 5.

    1. Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех двузначных чисел, кратных 8. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех двузначных чисел, кратных 8.

    1. Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех однозначных чисел, кратных 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех однозначных чисел, кратных 3.


    Нахождение максимального

    1. При решении задач на нахождение максимального числа необходимо до цикла мах:=-1

    2. В цикле после проверки условия записываем: мах:=a
    Пример
    Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, кратное 4.

    Program z20_2;

    var n,i,a,max: integer;

    begin

    readln(n);

    max := -1;

    for i := 1 to n do

    begin

    readln(a);

    if (a mod 4 = 0) and (a > max) then max := a;

    end;

    writeln(max);

    end.
    Пример

    Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, кратное 4.

    Program z20_2;

    var a, max: integer;

    begin

    мах:=-1;

    write (‘введите число’);

    readln (a);

    while a<>0 do 

    begin

    if (a mod 4 = 0) and (a > max) then max := a;

    write (‘введите число’);

    readln (a); 

    end;

    writeln (max);

    end.

    Задания

    1. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, кратное 5.

     

    1. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 2.  Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 2. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, оканчивающееся на 2.

    1. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 9. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 9. Количество чисел не превышает 1000. Введённые числа по модулю
      не превышают 30 000. Программа должна вывести одно число: максимальное число, оканчивающееся на 9.

    1. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 8. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: максимальное число, кратное 8.

    1. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, кратное 4.

    1. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, оканчивающееся на 3.


    Нахождение минимального

    1. При решении задач на нахождение максимального числа необходимо до цикла min:=30001

    2. В цикле после проверки условия записываем: min:=a


    Пример
    Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное число, кратное 3.

    Program z20_4;

    var n,i,a,min: integer;

    begin

    readln(n);

    min := 30001;

    for i := 1 to n do

    begin

    readln(a);

    if (a mod 3 = 0) and (a < min) then min := a;

    end;

    writeln(min)

    end.

    Пример

    Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число – минимальное число, кратное 3.

    Program z20_2;

    var a, min: integer;

    begin

    min:=30001;

    write (‘введите число’);

    readln (a);

    while a<>0 do 

    begin

    if (a mod 3 = 0) and (a < min) then min := a;

    write (‘введите число’);

    readln (a); 

    end;

    writeln (min);

    end.

    Задания

    1. Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное число. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется чётное число. Количество чисел не превышает 1000. Введённые числа не превышают 30 00. Программа должна вывести одно число – минимальное чётное число.

    1. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 2. Количество чисел не превышает 1000. Введённые числа по модулю
      не превышают 30000. Программа должна вывести одно число: минимальное число, оканчивающееся на 2.

    1. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 9. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 9. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000. Программа должна вывести одно число: минимальное число, кратное 9.

    1. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число – минимальное число, кратное 3.

    1. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число – минимальное число, оканчивающееся на 6.

    1. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число – минимальное число, оканчивающееся на 4.


    Нахождение среднего арифметического

    Пример
    Напишите программу, которая в последовательности натуральных чисел определяет среднее арифметическое чисел, кратных 4 или сообщает, что таких чисел нет. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести среднее арифметическое чисел, кратных 4, или вывести NO, если таких чисел в последовательности нет.

    Program z20_1;

    var n, i, a, k, s: integer;

    sa: real;

    begin

    write (‘Введите количество чисел в последовательности’);

    readln(n);

    S :=0;

    k := 0;

    for i := 1 to n do

    begin

    write (‘Введите число ’);

    readln(a);

    if (a mod 4 = 0) then

    begin

    s:=s+a;

    k := k + 1;

                                            end;

    end;

    if k<>0 then

                    begin

                            sa:=s/k;

    writeln (sa);

                    end

            else writeln (‘NO‘);

    end.

    Пример

    Напишите программу, которая в последовательности натуральных чисел определяет среднее арифметическое чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести среднее арифметическое чисел, кратных 4, или вывести NO, если таких чисел в последовательности нет.

    Program z20_2;

    var a, k, s: integer; sa: real;

    begin

    s:=0;

    k:= 0;

    write (‘введите число’);

    readln (a);

    while a<>0 do 

    begin

    if (a mod 4 = 0) then

    begin

    s:= s+a;

    k := k + 1;

                            end;

    write (‘введите число’);

    readln (a); 

    end;

    if k<>0 then

                    begin

                            sa:=s/k;

    writeln (sa);

                    end

            else writeln (‘NO‘);

    end.

    Задания

    1. Напишите программу, которая в последовательности целых чисел находит среднее арифметическое чисел, оканчивающихся на единицу, или сообщает, что таких чисел нет. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода). Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести среднее арифметическое чисел, оканчивающихся на единицу, или вывести NO, если таких чисел в последовательности нет.

    1. Напишите программу для решения следующей задачи. На зачётной работе по физике ученикам 9 класса было предложено 12 задач. Зачёт можно получить, если правильно решить не менее 8 задач. Сколько учеников получило зачёт? Вычислите среднее количество правильно решённых задач учащимися, получившими зачёт. Гарантируется, что хотя бы один ученик сдал зачёт. Программа получает на вход количество учеников в классе N (1 ≤ N ≤ 30), затем для каждого ученика вводится количество правильно решённых задач.

    написать администратору сайта