Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6 и оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6 и оканчивающееся на 8.
Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000.
Программа должна вывести одно число: сумму чисел, кратных 6 и оканчивающихся на 8.
Ответы
Ответ дал:
0
program p1;
var i, a,s,b: integer;
begins:=0;
readln(a); for i:=1 to a do begin readln(b); if (b mod 10=8) and (b mod 6=0) then s:=s+b; end; writeln(s);end.
var i, a,s,b: integer;
begins:=0;
readln(a); for i:=1 to a do begin readln(b); if (b mod 10=8) and (b mod 6=0) then s:=s+b; end; writeln(s);end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад