Напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 7 и оканчивающихся на 2. программа получает на вход натуральные числа и количество введенных чисел неизвестно последовательность чисел заканчивается числом 0. количество чисел не превышает 1000 . введенные числа не превышают 30 000. программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 2. входные данные: 112, 24, 42, 49, 22,0 выходные данные: 154
kense
3
16.09.2019 04:40
6
Другие вопросы по теме Информатика
movnar98
09.12.2020 06:35
Віка579
09.12.2020 06:35
2005Dasha0305
09.12.2020 06:34
007239
16.06.2019 12:40
IncolaRO
16.06.2019 12:40
Кириллпронин
21.08.2019 06:40
Elaria1
11.09.2019 19:50
Rita1007
11.09.2019 19:50
Эплик1
11.09.2019 19:50
tyyyyyj
11.09.2019 19:50
Популярные вопросы
- Составьте уравнение реакций получения нитробензина из циклогексана...
1 - На крыше в ряд сидели вороны несколько слева от трубы и несколько справа...
3 - Які звички називаються шідливими ? чому?...
3 - Від пристані вниз по річці пливе пліт зі швидкістю 3 км за годину.через...
3 - Найти производную в точке х0 y=sin4xcos4x, где x0=п/3 подскажите?...
3 - Расстояние между пунктами а и в рано 435 км. одновременно навстречу друг...
1 - Решить уравнение х(х-6)+20х² =7 х-2...
2 - Изложения с элементами сочинения последние дни осени...
1 - Известно, что сантиметровый слой снега на 1га поля содержит 25-30м3 воды.сколько...
3 - Вот которую нужно решить: принимая за центр гомотетии одну из вершин...
2
var s,x:integer;
begin
s:=0;
x:=1;
while x<>0 do
begin
read(x);
if (x mod 7=0) and (i mod 10=0) then s:=x+s;
end;
writeln('summa=',s);
end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadlnString.ToIntegers.Where(t -> (t mod 7 = 0) and (t mod 10 = 2)).sum);
end.