Напишите программу, которая в последоательности натуральных чисел оределяет сумму всех чисел, кратных 6 и оканчивающтхся на 2. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность ). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число: сумму всех чисел кратных 6 и оканчивающихся на 2. вводные данные 12, 24, 22, 72, 11, 0. выходные данные 84 !
evgeniaberezka
1
29.08.2019 13:50
1
Другие вопросы по теме Информатика
дэнчик626
10.09.2019 11:20
13326
10.09.2019 11:10
run5555
10.09.2019 11:10
alexandraselivanova
28.05.2019 10:10
azizka4
28.05.2019 10:10
oxpoluhina2017
22.11.2019 19:09
Bksd
22.11.2019 19:09
AngryStraus
22.11.2019 19:04
RaiderUp
23.12.2020 05:13
Популярные вопросы
- За 6 хв літак пролетів 72км.яку відстань він пролетів за 30 хв якщо його швидкість...
3 - Какие были проблемы в с 1965-1985 гг.?...
2 - Х=х+6/-3х-4? решите уравнение и укажите хmin...
1 - Запиши выражения в порядке возрастания их значений 9*6,9*5,9*2,9*4,9*3,9*8,9*9,9*7....
1 - Ассоциации вектора в природе (что тоже может быть направленым в природе какие нибудь...
2 - Портрет героя по рассказу уроки французского...
1 - При каких значениях p уравнение px^2+px+1=0 будет иметь 1 корень?...
2 - Найдите частное : 249,3 : 9. 2,31: 7.7: 8.0,09: 100...
3 - Людина € частиною природи. це добре в|дчували наш| предки. вони обожнювали природу....
3 - Анализ эпизода : смерть цыганка из повести горького детство...
3
S:integer;
Begin
Repeat
Read(A);
if (A mod 6 = 0)and(A mod 10 = 2) then S:=S+A;
Until A = 0;
Write(S);
End.