Найдите все трехзначные числа, сумма цифр которых кратна 7 и сами числа также делятся **...

Question

Найдите все трехзначные числа, сумма цифр которых кратна 7
и сами числа также делятся на 7.

Answer 1

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.

Comments

и в чем проблема?

---

я уже прочитал условие еще раз и поменял решение. в ABC.net есть +=

---

div= и mod= нету

Answer 2

Пример реализации на VBA Excel
Программу можно посмотреть нажав Ctr+F11

---

Скачать вложение Excel (XLS)