Написать программку которая обретает: 1) в последовательности естественных чисел сумму всех

Написать программку которая обретает: 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('Элемент последовательности =gt; ');

       readln(number);

       

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

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

       sum_all := sum_all + number;

   until number = 0;

   

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

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

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

end.

Jelina Ostapec
Спасибо)
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт