Предмет: Информатика,
автор: almazvalitov2016
Написать программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 2 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. последовательности всегда имеется число, кратное 2 и оканчивающееся на 4. Количество чисел не превышает 200. Введенные числа по модулю не превышает 400. Программа должна вывести одно число: сумму чисел, кратных 2 и оканчивающихся на 4.
Пример:
Входные данные: Выходные:
5 52
8
4
14
16
34
Ответы
Автор ответа:
0
var
i, n, num, sum: integer;
begin
num:=0;
read(n);
for i:=1 to n do
begin
read(num);
if (num mod 2 = 0) and (num mod 10 = 4) then
sum:=sum+num;
end;
writeln(sum);
end.
i, n, num, sum: integer;
begin
num:=0;
read(n);
for i:=1 to n do
begin
read(num);
if (num mod 2 = 0) and (num mod 10 = 4) then
sum:=sum+num;
end;
writeln(sum);
end.
Похожие вопросы
Предмет: Другие предметы,
автор: lsussnvshs
Предмет: Математика,
автор: arinamt05
Предмет: Математика,
автор: nastya467446
Предмет: Математика,
автор: рифат2