Напишите программку, которая в последовательности естественных чисел определяетсумму всех

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

Задать свой вопрос
2 ответа
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x-gt;xlt;gt;0).Where(x-gt;(x mod 10=1) and (x mod 7=0)).Sum());
end.
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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт