Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 2. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 2.
LoliPops33
2
29.08.2019 01:30
40
Другие вопросы по теме Информатика
andriybiguniak2
24.01.2022 15:33
яидиот2345
24.01.2022 15:29
alizhanayanaoxi717
24.01.2022 15:22
aksu4
19.09.2019 02:50
диана2399
19.09.2019 02:50
avetisgrigoryan
28.09.2019 03:00
TopThan
28.09.2019 03:00
irnairina89
07.10.2019 16:02
SankohTew
07.10.2019 16:04
Популярные вопросы
- Как россия параминовала гянджу , надо...
2 - Таблица по обществознанию отклоняющееся поведение...
2 - Назовите такое значение параметра aa, при котором неравенство ax 7x+2...
1 - Суреттегі екі ң қайсысы гамбургерді жиі жейді...
3 - Какая главная мысль рассказе тонкий и толстый?...
1 - Продолжить фразу я считаю, что человек отвечает за свою...
3 - Напишите все 54 района башкортостана в алфавитном порядке...
3 - Рассказать об ассоль алые паруса...
3 - План другої частини повісті пісня над піснями...
3 - Подбери к выделенному слову в словосочетании антоним. запиши парами....
2
Program M1;
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.