Вывести одно число: сумму чисел, кратных 2 и оканчивающихся на 4 - Pascal ABC
Формулировка задачи:
Написать программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 2 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. последовательности всегда имеется число, кратное 2 и оканчивающееся на 4. Количество чисел не превышает 200. Введенные числа по модулю не превышает 400. Программа должна вывести одно число: сумму чисел, кратных 2 и оканчивающихся на 4.
Пример:
Входные данные: Выходные:
5 52
8
4
14
16
34
Решение задачи: «Вывести одно число: сумму чисел, кратных 2 и оканчивающихся на 4»
textual
Листинг программы
program pr;
var
n, i, sum, m: integer;
begin
sum := 0;
writeln('Введите количество чисел последовательности');
readln(n);
if n <= 200 then begin
for i := 1 to n do
begin
writeln('Введите ', i, ' число:');
readln(m);
if abs(m) <= 400 then
begin
if (m mod 2 = 0) and (m mod 10 = 4) then
begin
sum := sum + m;
end;
end
else begin writeln('Число по модулю не должно превышать 400'); exit; end;
end;
writeln('Сумма элементов последовательности кратных 2 и оканчивающихся на 4: ', sum);
end
else writeln('Количество не должно превышать 200');
end.
Объяснение кода листинга программы
Программа начинается с объявления переменных n, i, sum и m типа integer. Затем программа запрашивает у пользователя количество чисел в последовательности и проверяет, что это количество не превышает 200. Далее, в цикле for i := 1 до n do, программа запрашивает у пользователя каждое число в последовательности и проверяет его на соответствие условиям: число должно быть кратно 2 и заканчиваться на 4. Если число удовлетворяет этим условиям, то оно добавляется к переменной sum. После завершения цикла, программа выводит на экран сумму чисел, удовлетворяющих условиям, и завершает работу. Если количество чисел в последовательности превышает 200, программа выводит сообщение об ошибке.