Вопрос, который вызвал трудности

На вход программе подаётся последовательность натуральных чисел. Признак конца ввода – ноль. Напишите программу, которая находит сумму чисел, которые делятся на 13 и последняя цифра которых равна 7. Числа не превосходят 10000. Массивы не использовать.

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

На вход программе подаётся последовательность натуральных чисел. Признак конца ввода – ноль. Напишите программу, которая находит сумму чисел, которые делятся на 13 и последняя цифра которых равна 7. Числа не превосходят 10000. Массивы не использовать.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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

Var
  t,s:integer;

begin
  s:=0;
  repeat
    read(t);
    if (t mod 13=0) and (t mod 10=7) then s:=s+t
  until t=0;
  Writeln(s)
end.