melomicsmel
10.04.2023 12:33

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
aibekauezhanme
01.10.2020 22:29
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. 
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота