Напишите программу которая в последовательности натуральных чисел определяет сумму чисел кратных 3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число кратное 3 и оканчивающиеся на 2. Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести отдел число: сумму чисел, кратных 3 и оканчивающихся на 2.
Входные данные:
4
12
25
12
9
Выходные:
24

23 Окт 2019 в 21:44
4 207 +1
0
Ответы
1

var n,a,s,i: integer;

begin

readln(n);

s:=0;

for i:=1 to n do

 begin

 readln(a);

 if (a mod 3=0)and(a mod 10=2)

 then s:=s+a;

 end;

writeln(s);

end.

24 Окт 2019 в 01:23
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир