Регистрация
didenkoelenam
22.03.2021 07:39
Информатика
Есть ответ 👍

Напишите программы на языке паскаль:
1. напишите программу, которая в последовательности натуральных чисел
определяет сумму трёхзначных чисел, кратных 4. программа получает на вход
натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: сумму трёхзначных чисел, кратных 4.
2. напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 6 и оканчивающихся на 4. программа
получает на вход количество чисел в последовательности, а затем сами числа.
количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 6 и оканчивающихся на 4.
3. напишите программу, которая в последовательности целых чисел
определяет количество чисел, кратных 5 или 9. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в
последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 5 или 9.
4. напишите эффективную программу, которая по двум данным натуральным
числам a и b, не превосходящим 3, подсчитывает количество нечетных
натуральных чисел на отрезке [a,b] (включая концы отрезка). программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1 ≤ a ≤ b ≤ 3. проверять входные данные на корректность не нужно. программа должна вывести одно число: количество нечетных чисел на отрезке [a,b].
5. напишите программу, которая в последовательности натуральных чисел
находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «no»). программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести среднее арифметическое чисел, кратных 8, или вывести «no», если таких чисел нет. значение выводить с точностью до десятых.
6. напишите программу, которая в последовательности натуральных чисел
определяет количество чисел, кратных 4, но не кратных 7. программа получает на вход количество чисел в последовательности, а затем сами числа. в
последовательности всегда имеется число, кратное 4 и не кратное 7. количество
чисел не превышает 1000. введённые числа не превышают 30 000. программа
должна вывести одно число: количество чисел, кратных 4, но не кратных 7.

284
291
Посмотреть ответы 1

Ответы на вопрос:

Aieks01
Aieks01
4,4(10 оценок)

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

Популярно: Информатика