Числа вводятся с клавиатуры (кол-во и сами числа). Среди чисел найти сумму кратных 4 и оканчивающихся на 4 - Turbo Pascal
Формулировка задачи:
Числа вводятся с клавиатуры (кол-во и сами числа). Среди чисел найти сумму кратных 4 и оканчивающихся на 4.
Решение задачи: «Числа вводятся с клавиатуры (кол-во и сами числа). Среди чисел найти сумму кратных 4 и оканчивающихся на 4»
textual
Листинг программы
- program pr;
- var
- i, n, sum, m: integer;
- begin
- writeln('Введите количество чисел');
- readln(n);
- sum := 0;
- for i := 1 to n do
- begin
- read(m);
- if (m mod 4 = 0) and (m mod 10 = 4) then
- sum := sum + m;
- end;
- writeln;
- writeln('Сумма: ', sum);
- end.
Объяснение кода листинга программы
- В программе объявлены переменные i, n, sum и m типа integer.
- Выводится сообщение «Введите количество чисел», и считывается значение переменной n.
- Инициализируется переменная sum значением 0.
- Запускается цикл for, который выполняется от 1 до n.
- Внутри цикла считывается значение переменной m с помощью функции read.
- Проверяется условие (m mod 4 = 0) и (m mod 10 = 4). Это условие проверяет, является ли число m кратным 4 и оканчивается ли оно на 4.
- Если условие истинно, то переменная sum увеличивается на значение m.
- По завершении цикла выводится сообщение «Сумма: », и значение переменной sum.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д