Аполлон
4 год назад
Напишите программу, которая в последовательности натуральных чисел определяетсумму всех чисел, кратных 7 и оканчивающихся на 1. Программа получает на вход нату-ральные числа, количество введённых чисел неизвестно, последовательность чисел за-канчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).Количество чисел не превышает 100. Введённые числа не превышают 300. Программадолжна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 1.
ОТВЕТЫ
Христо
Oct 24, 2020
var n,s: integer;
begin
s:=0; n:=0;
repeat
if ((n mod 7)=0) and ((n mod 10)=1) then s:=s+n;
read(n);
until n=0;
writeln('сумма: ',s);
end.
14 21 35 27 91 16 0
сумма: 112
begin
s:=0; n:=0;
repeat
if ((n mod 7)=0) and ((n mod 10)=1) then s:=s+n;
read(n);
until n=0;
writeln('сумма: ',s);
end.
14 21 35 27 91 16 0
сумма: 112
827
Смежные вопросы: