12345678910111213141516171819202122Program task7; Var i : integer; procedure PrintAllDividers(n : integer; p : integer); Begin if (p <= (n div 2)) then Begin if (n mod p) = 0 then Begin write(p); write( ); end; PrintAllDividers(n,p+1); end;End; Begin write(i=); readln(i); PrintAllDividers(i,1); writeln;End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.