[Xcopy]

Как подсчитать сколько чисел от 0 до числа "А" делятся нацело на число "В"???

--------------------------------------------
очень надо, заранее спасибо.

[KOOL]

Код:

var A, B, i, count : integer;
...
count:=0;
for i:=0 to A do
  if i mod B=0 then
    inc(count);
...

[AlexSku]

Советую проверять на реальном примере, тогда бы не появилось бы "indeger".

[KOOL]

Очепяточка вышла С кем не бывает...
А насчет реального примера...я на Линуксе сижу. Так что дельфи запустить не можу

[Xcopy]

Блин люди чтото тут нето!, может кто еще что даст...

[lmikle]

Все то. За исключением очепяток.

Код:

var 
  A, B, i, count : integer;
begin
  A := 15; // Пример
  B := 3; // Пимер
  count:=0;
  for i:=0 to A do
    if (i mod B) = 0 then
      inc(count);
  ShowMessage(IntToStr(count));
end;

[Xcopy]

lmikle выражаю тебе огромную благодарность!!! СПАСИБО!!!