оператор цикла, найти делители числа и вывести их на экран Опции

[pupsic]

найти все делители числа . вывести на экран не применяя див и мод

uses crt;
var
i,n:integer;
begin
writeln('n');
readln(n);


for i:=1 to n div 2 do
if n mod i=0 then write (i, ' ');
end.

вот у меня так получаеться , а по другому я ввожу после for

 t:=n;
while  t>=i then t:=t-1
if  t=0 then

вот что делать дальше путаюсь

Сообщение отредактировано: pupsic - 16.02.2007 16:25