Дано натуральное число х, вывести на экран все делители этого числа. И я написал программу, пойдёт ли она под данное условие, и если нет, то что нужно поменять:
program zadacha;
var n,i:integer;
begin
i:=1;
while(i begin
if (n mod i=0) then write(i);
end;
writeln('n');
end.

Спасибо большое

0. Ты никак не задаёшь n в программе. Тебе стоит хотя бы прочитать его: read(n);1. Что написано внутри условия цикла while? Если по твоему решению, должно быть "i <= n"2. Делители будут "прилипать" друг к другу, выводи так: write(i, ' ');3. Твой счётчик i не увеличивается, программа зациклится. После if'а вставь i := i + 1;Итоговый код:var n, i: integer;begin read(n); i := 1; while (i <= n) do begin if n mod i = 0 then write(i, ' '); i := i + 1; end; writeln('n');end.Есть, кстати, альтернативный способ поиска делителей. Выводить их он будет, правда, не в порядке возрастания.var n, i: integer;begin read(n); i := 1; while (i * i < n) do begin if n mod i = 0 then write(i, ' ', n div i, ' '); i := i + 1; end; if i * i = n then write(i, ' '); writeln('n');end.