Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 1. Программа получает на вход нату- ральные числа, количество введённых чисел неизвестно, последовательность чисел за- канчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 1.

Question

momidacomes47 · Answer

Var n,s: integer;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

athathv954 · Answer

//PascalABC.NET//Версия 3.3, сборка 1611beginwrite(ReadSeqIntegerWhile(x->x0).Where(x->(x mod 10=1) and (x mod 7=0)).Sum());end.

Ответы и объяснения 2

Знаете ответ? Поделитесь им!

Есть сомнения?