На вход программе подаётся последовательность натуральных чисел. Признак конца ввода – ноль. Напишите программу, которая находит сумму чисел, которые делятся на 7 и последняя цифра которых равна 3. Числа не превосходят 10000. Массивы не использовать.
Ответ
Автор - Никита7531
Ответ:
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;