• Написать программу которая находит: 1) в последовательности натуральных чисел сумму всех чисел, которые кратны 4 и заканчиваются на цифру 2, кол-во чисел вводит пользователь
    2) последовательность заканчивается 0
    3)найти кол-во чисел, которые не больше 100
    4) подсчитать сумму всей последовательности
    Паскаль ABC

Ответы 1

  • //PascalABC.Net 3.1 сборка 1200

    //написано в стиле обычного паскаля, должно работать

    var

       number: integer;

       sum, sum_all, k: integer;

    begin

       repeat

           write('Элемент последовательности => ');

           readln(number);

           

           if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;

           if (number <= 100) then k := k + 1;

           sum_all := sum_all + number;

       until number = 0;

       

       writeln('Сумма всех чисел, которые кратны 4 и заканчиваются на цифру 2 = ', sum);

       writeln('Сумма всех = ', sum_all);

       writeln('Кол-во чисел, которые не больше 100 = ', k);

    end.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years