На вход программе подаётся последовательность натуральных чисел. Признак конца ввода – ноль. Напишите программу, которая находит сумму чисел, которые делятся на 13 и последняя цифра которых равна 7. Числа не превосходят 10000. Массивы не использовать.
More Questions From This User See All
Answers & Comments
Verified answer
Vart,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.
https://znanija.com/task/27509048 ?