Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3 и оканчивающихся на 2. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 3 и оканчивающееся на 2.
админ1273
3
21.09.2019 23:30
3
Другие вопросы по теме Информатика
denmalyshevs
23.05.2019 18:50
ЕсенжоловаЛяззат
23.05.2019 18:50
дарья1293
07.02.2021 20:52
новичок586
21.06.2019 15:40
Катюха808
21.12.2020 12:59
TimRus162rusg
23.09.2019 14:40
Mihael13
23.09.2019 14:40
POMOGIf
23.09.2019 14:40
dimatitov1428dimasik
23.09.2019 14:40
Популярные вопросы
- Выберите правильный ответ. Управление в Римской республике осуществлял (осуществляли)...
3 - Нарынқұм зауалы жоспар құрап беріңдерші...
1 - 1.От чего на самом деле зависит видимая форма Луны? 2. Человеку, читающему...
1 - Найди корни данного уравнения 3/5⋅y−4=−15+y/5....
2 - Составить 5 предложений из слов река,широкая,вышла,берёза,белая,растут,лодка,старая,стоит...
2 - Відокремлений додаток ужито в реченні...
1 - Нужно написать Моцарта и Сальери портрет,поведение героя,авторское отношение...
3 - 1. Какие процессы оказывают влияние на экономическое развитие страны 2. Какое...
2 - Нансальля пред осенню киритику, ставь в мини-Эссе «Пруд» вместо точекпротиептые...
1 - Розв яжіть хронологічну задачу. Три останні цифри року, у якому захопили...
2
//Версия 3.3, сборка 1634
begin
write(ReadSeqInteger(ReadInteger).Where(x->(x mod 3=0) and (x mod 10=2)).Sum);
end.
n,i,a,k:integer;
s:string;
begin
readln(n);
for i:=1 to n do
begin
read(a);
str(a,s);
if ((s[length(s-1)]='2')and((a mod 3)=0))then k:=k+1;
end;
writeln(k);
end.