Определить, сколько четырехзначных чисел делится на 13 и при этом не делится на 2, 3 и 5.

а можно через div и Mod сделать ету программу (я понимаю что ето будет не оптимизированно но все же как будет выглядеть)

Обнулить Счётчик
от 1000 до 9999 , увеличивая i , делать
начало
  если ( i делится, неделится, чегонибудь ещё...) то Увеличить(Счётчик)
конец;
Показать(Счётчик);
if then for mod div and begin end i ; () x to :=
составь из этих символов код и всё.

забыл ShowMessage и do :)

Да обсуждалось уже сегодня, потерли наверно.

да? невидел, извините:))

> Andy BitOff ©   (29.03.08 19:00) [3]
> Да обсуждалось уже сегодня

Видать, где-то в школе признаки делимости проходят. Или
и
. Или вообще, черырехзначные числа :)))

антонио, тебе лень страничку до конца посмотреть? чего ветки плодишь? али ты бот?

> [5] korneley ©   (29.03.08 19:21)

Однако, ответы дают не использую этих признаков ;)

ЗЫ
За исключением Palladin'а, в удаленной ветке.

А, да. Она и не удалена, оказывается

помоему он издевается. или действительно бот. там же всё расписАли.

> Andy BitOff ©   (29.03.08 19:24) [7]
Не, ну я там монстра с проверкой цифирек "запуздырил" :) Все строго по признакам, как их описывают ;)

> [10] korneley ©   (29.03.08 19:31)

Да я уже посмотрел.
Просто думал, что ветки нет, а по пямяти помнил только до ответа Palladin'а