Хитрая задача

[old slon]

Подлый учитель ( а точнее учительница) информатики неожиданно оставил мой моск наедине с крайне сложной для меня задачей....


Условие:
найти все трехзначные числа( от 100 до 999), удольтворяющие следующему условию: само число и сумма цифр этого числа делятса
на одно и то же число p. Значение p вводитса с клавиатуры.

Буду благодарен до крайности каждому оказавшему хоть малейшую помощь....

[qpokyc]

Гм. оч. хитрая
Надеюсь там нинадо было ничаго оптимизировать

PS: при переводе для компиляции на TURBO PASCAL'e потребуется поменять следующие строчки:

{Там нет такого модуля}
uses
  SysUtils;
{Строки как то по другому надо обрабатывать, давненько было - 
ужо точно не помню. И функция для перевода числа другая}
   then Write(IntToStr(ANum) + ', ');
{Не помню - поддерживается ли там такой тип переменной (если нет -
просто скопируй тело ScanProc туда, где оно вызывается и отредактируй переменные)}
type
 TScanProc = procedure (ANum: Integer; Valid: Boolean);

[old slon]

спасибо большое... хоть и тяжеловато для восприятия...

qpokyc спасибо!

[qpokyc]

Интересно, за что благодаришь если ничего исчо не видел...
PS: Решение во вложениях! (Chisla.zip (23.7 Кбайт, 0 просмотров))

[old slon]

видел..... пол кода проги для меня вообще темный лес.... я думал там попроще решение будет... поменьше кода....

Сижу разбираюсь...