метод перебора на паскале.

[torlof]

Доброе время суток всем.
Не могли бы вы помочь с программой, которая находит все пятизначные числа вида 5m, 27n, где m и n цифры, которые делятся на 15.
Кто знает помогите пожалуйста.

[torlof]

я вот накатал маленький код, но он мне только сумму почемуто выводит, а мне сумма не нужна мне чтоб она мне показала все числа и диапазона, кратные 15. Кто знает подскажите. Очень надо

uses crt;
var
sum,i:integer;
begin
clrscr;
sum:=0;
for i:=10 to 999 do
begin
if i mod 15=0 then
sum:=sum+i;
end;
writeln('Сумма чисел кратных пяти=',sum);
readln;
end.

[torlof]

попробовал вот так и всеравно выбевает ошибку

program bl9;
var
n,m,i:integer;
begin
m:=5*15;
n:=27*15;
for i:=10000 to 100000 do
if (i div n = 0 ) and (i div m = 0 ) then
write(i);
end.

Помогите не знаю в чом ошибка. Ребят помогите пожалуйста очень надо.

[torlof]

эх спасибо за помощь я разобрался программа работает, но серавно спасибо. Админестраторы тему можно закрывать.