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

2

Ответы и объяснения

2014-04-12T15:23:08+00:00
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.
Комментарий удален
я уже прочитал условие еще раз и поменял решение. в ABC.net есть +=
Комментарий удален
div= и mod= нету
Комментарий удален
  • v1248
  • главный мозг
2014-04-12T15:40:32+00:00
Пример реализации на VBA Excel
Программу можно посмотреть нажав Ctr+F11