Каждую букву в слове заменили на число её повторений и получили 131313. исходным словом могло варианты ответа: а)кококо б)молоко в)рококо г)

Думаю,правильный ответ а)

Думаю что это правильный ответ

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.