С клавиатуры вводится n натуральных чисел, каждое не больше 1000. Подсчитать сумму введённых чисел, каждое из которых делится нацело на 6 и оканчивается цифрой 8.

Перевести на язык программирования и решить

Question

Информатика

Лиат

15 сентября, 18:07

С клавиатуры вводится n натуральных чисел, каждое не больше 1000. Подсчитать сумму введённых чисел, каждое из которых делится нацело на 6 и оканчивается цифрой 8.

Перевести на язык программирования и решить

+4

Ответы (1)

Знаете ответ на вопрос?

Евсий · Answer 1

Pascal ABC

var

n, sum, a, i:integer;

begin

readln (n) ;

for i:=1 to n do begin

readln (a) ;

if (a mod 6 = 0) and (a mod 10 = 8) then

sum : = sum + a;

end;

writeln (sum) ;

end.