Числа вводятся с клавиатуры (кол-во и сами числа). Среди чисел найти сумму кратных 4 и оканчивающихся на 4 - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Числа вводятся с клавиатуры (кол-во и сами числа). Среди чисел найти сумму кратных 4 и оканчивающихся на 4.

Решение задачи: «Числа вводятся с клавиатуры (кол-во и сами числа). Среди чисел найти сумму кратных 4 и оканчивающихся на 4»

textual
Листинг программы
  1. program pr;
  2.  
  3. var
  4.   i, n, sum, m: integer;
  5.  
  6. begin
  7.   writeln('Введите количество чисел');
  8.   readln(n);
  9.   sum := 0;
  10.   for i := 1 to n do
  11.   begin
  12.     read(m);        
  13.     if (m mod 4 = 0) and (m mod 10 = 4) then
  14.       sum := sum + m;
  15.   end;
  16.   writeln;
  17.   writeln('Сумма: ', sum);
  18. end.

Объяснение кода листинга программы

  1. В программе объявлены переменные i, n, sum и m типа integer.
  2. Выводится сообщение «Введите количество чисел», и считывается значение переменной n.
  3. Инициализируется переменная sum значением 0.
  4. Запускается цикл for, который выполняется от 1 до n.
  5. Внутри цикла считывается значение переменной m с помощью функции read.
  6. Проверяется условие (m mod 4 = 0) и (m mod 10 = 4). Это условие проверяет, является ли число m кратным 4 и оканчивается ли оно на 4.
  7. Если условие истинно, то переменная sum увеличивается на значение m.
  8. По завершении цикла выводится сообщение «Сумма: », и значение переменной sum.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.333 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы