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

Ответ:

var sum, num: Integer;

begin

   readln(num);

   while (num <> 0) do

   begin

       if ((num mod 7 = 0) and (num mod 10 = 3)) then sum := sum + num;

       readln(num);

   end;

   Writeln(sum);

end.

Объяснение: