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

Question

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

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

Входные данные: 3,12,25,9
Выходные данные: 154

Задать свой вопрос

Алла Деснева
Информатика
2019-07-28 02:37:56
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Если летние каникулы длятся с 26 мая по 31 августа, сколько

К числу 18 прибавить разность чисел 15 и 9. 18 +(15+9),

Перевидите выделенное пожалуйста, очень надобно. Буду очень признательна.

Сочинение на тему моя семья(надобно на германском).А если не понимаете то

вычислите,испоьзуя формулы приведения cos300

Разберите слово quot;качнув quot; по составу

переведите предложения из прямой речи в косвенную пжалуйстааааааа 1)what are your

Растолкуйте, почему уход за инвалидом 1 группы, ребенком инвалидом, личиком ветше

6 а) Воткните недостающие формы ступеней сопоставленья прилагательных в таблицу: сравнительную

информация о городе пскове

Оксана Зубрильчева · Answer 1 · 2019-07-28 02:44:13+3:00

Var a,i,n,sum: integer;
begin
writeln('Введите количество чисел');
readln(n); sum:=0;
for i:=1 to n do begin
writeln('Введите число');
readln(a);
if a mod 3=0 then sum:=sum+a;
end;
writeln('Сумма чисел кратных 3 одинакова ', sum);
readln
end.

О проекте

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

Добро пожаловать!