Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 1. программа получает на вход нату- ральные числа, количество введённых чисел неизвестно, последовательность чисел за- канчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 1.
snoxj2003
2
17.09.2019 03:30
1
Другие вопросы по теме Информатика
Dashakon58
02.10.2019 18:40
GarmionaG7
15.08.2019 11:30
lolsotobas
15.08.2019 11:30
Aidana1620
28.01.2021 19:20
Sonia369
28.01.2021 19:19
arisazenina783
09.04.2020 20:14
Сutie2004
12.04.2021 08:46
kukusiki12345
12.04.2021 08:46
Популярные вопросы
- Знайдіть на осі z точку, рівновіддалену від точок А(-2; 0; 3) і В(0; 2; -1)...
2 - Объем подъём объяснение сделай звуковую схему...
1 - 2. The following active sentences are changed into passive. Complete the passive...
3 - Прочитайте тексты и выполните задания Трансгенные растения: вред или польза? Люди...
2 - Существует перемещения которое переводит круг x2+y2-2x-4y-11=0 в круг x2+y2+6x-2y-6=0...
2 - Дать простое объяснение слова Сократа Я знаю что я ничего не знаю...
3 - Дія у трагедії В Шекспіра Ромео и Джульєтта відбувался?...
1 - Спростит вираз: (×+3)(×-3)-×2...
3 - 2. Мәтіннің тақырыбы мен ондағы негізгі ойды анықта. Как сөйлем мәтін тақырыбы мен...
2 - 1-тапсырма. Әңгімеден алынған үзінділерді Мұқанның өсу жолымен сәйкестендіріңіз...
3
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->(x mod 10=1) and (x mod 7=0)).Sum());
end.
begin
s:=0; n:=0;
repeat
if ((n mod 7)=0) and ((n mod 10)=1) then s:=s+n;
read(n);
until n=0;
writeln('сумма: ',s);
end.
14 21 35 27 91 16 0
сумма: 112