Burizar
4 год назад
На вход программе подаётся последовательность натуральных чисел. Признак конца ввода – ноль. Напишите программу, которая находит сумму чисел, которые делятся на 13 и последняя цифра которых равна 7. Числа не превосходят 10000. Массивы не использовать.
ОТВЕТЫ
Breiner Lieselotte
Oct 24, 2020
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.
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.
979
Смежные вопросы: