Найдите все трехзначные числа, сумма цифр которых кратна 7 и сами числа также делятся на 7.
Найдите все трехзначные числа, сумма цифр которых кратна 7
и сами числа также делятся на 7.
Гость
Ответ(ы) на вопрос:
Гостьvar i,a,s:integer;
begin
for i:=100 to 999 do begin
s:=0;
a:=i;
while a<>0 do begin
s+=a mod 10;
a:=a div 10;
end;
if (s mod 7 = 0) and (i mod 7 = 0) then writeln(i);
end;
end.
ГостьПример реализации на VBA Excel
Программу можно посмотреть нажав Ctr+F11
Не нашли ответ?
Похожие вопросы