Тема: перебор чисел
Показать сообщение отдельно
  #2  
Старый 06.10.2008, 17:55
Аватар для KOOL
KOOL KOOL вне форума
Активный
  
Регистрация: 06.01.2008
Адрес: Рязань
Сообщения: 306
Версия Delphi: 2009
Репутация: 6150
По умолчанию
Код:
var A, B, i, count : integer;
...
count:=0;
for i:=0 to A do
  if i mod B=0 then
    inc(count);
...
__________________
РГРТУ - ФВТ - Системы Автоматизированного ПРоектирования. ت
Ответить с цитированием