Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных6 и оканчивающихся на6. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает100. введённые числ
sashkaveber
1
06.09.2019 11:00
0
Другие вопросы по теме Информатика
kimas98
11.04.2020 11:42
evdokiya888p06xhz
11.04.2020 11:42
myka1
22.02.2021 08:39
Всезнаюшка15
22.02.2021 08:38
бооой
22.02.2021 08:37
Katyusha4368
22.02.2021 08:35
hfyfghhvu
19.07.2019 12:20
Андрей4е6
19.07.2019 12:20
tokio272
13.06.2019 14:40
Популярные вопросы
- Task 1. Listen to two speakers and choose the speakers believes on...
3 - .УМОЛЯЮ РЕШИТЕ ХОТЯ БЫ 3 ЗАДАНИЯ ИЛТ КАКОЕ НИБУДЬ 7 КЛАСС СВОЙСТВО...
2 - напишите Напишіть відповідь на тему Патріотичні питання в Пісні про...
1 - Выполните действие1 1/3 + 3/4...
2 - 8.3.5.1 In groups, choose a sport from your country. Make notes under...
3 - 459. По легенде индийский царь позволил изобретателю игры в шахматы...
2 - решить всё что на картинке...
2 - - Решите графическим систему уравнений: у - 6x = -25 - у – х РЕШИТЕ!!...
2 - ів, питання та відповіді на фотографії, будь ласка іть!...
2 - 7 класс сочинение(Сочинение в виде дневниковых записей по картине Игоря...
1
var a,sum: integer;
begin
readln(a);
sum:=0;
while (a<>0) do
begin
if(a mod 6=0) and (a mod 10=6) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.