На вход программе подаётся последовательность натуральных чисел. Признак конца ввода – ноль. Напишите программу, которая находит сумму чисел, которые делятся на 7 и последняя цифра которых равна 3. Числа не превосходят 10000. Массивы не использовать.
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение: