Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 3. количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число — сумму чисел, кратных 3
Katerina3069
2
29.09.2019 10:28
1
Другие вопросы по теме Информатика
joseska228
16.02.2022 05:15
black93
16.02.2022 05:02
Iamjav
16.02.2022 05:01
оля2053
01.07.2019 11:00
shamsi3000
10.12.2020 09:29
qantonvishnevsky
10.12.2020 09:29
zaporozkayaoks
30.10.2020 11:30
artemyaros2005oxkd2q
30.10.2020 11:30
Популярные вопросы
- Описание быта и нравов купеческой семьи из Песня про царя Ивана Васильевича молодого...
1 - Найти ускорение свободного падения...
2 - ОЧЕНЬ Укажіть речення з простими дієслівними присудками: А. Я хочу погостювати...
2 - Выписать из романа «Отцы и дети» 10 предложений с приложением. Обосновать, почему...
1 - 9. Переведи: 3 сут 13 ч = … ч. * 73 ч91 ч83 ч85 чэто тест...
2 - Кому принадлежит цитата, которую А. С. Пушкин использовал как эпиграф к «Евгению...
2 - Составь писменный словестный портрет прилогательного из предложения ниже Дом там,...
3 - Используя ресурсы Интернета, подготовите сообщение о луковичных растениях и их...
3 - Решите уравнение а) √2sinx=2-√2cosx...
3 - Записать 15 слов где различаются только согласные парные по звонко ти глухости...
1
var n,i,a,s: integer;
begin
write('Введите количество чисел в последовательности: ');
readln(n);
for i := 1 to n do
begin
write('Введите число: ');
readln(a);
if a mod 3 = 0 then s:=s+a;
end;
writeln('Сумма чисел, кратных 3, равна: ',s)
end.
Объяснение: