Напишите программу, которая в последовательности натуральных чисел определяет сумму...

Question

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 3 или кратных 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3 или кратное 5. Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число - сумму чисел последовательности, оканчиваю- щихся на 3 или кратных 5. Пример работы программы: Входные данные Выходные данные 4 152 93 17 265 Выходные данные 358

Answer 1

Ответ:

var x, i, n, s:integer;

Begin

Read(n);

FOR i:=1 to n do

begin

Read (x);

IF (x mod 10=3) or (x mod 5=0) then s:=s+x;

end;

write(s);

end.