Question

РЕБЯТ, ПОМОГИТЕ ПОЖАЛУЙСТА ИНФОРМАТИКА 8 КЛАСС!!! НУЖНО ОЧЕНЬ ОЧЕНЬ СРОЧНО!!! СЕГОДНЯ В 20-00 НУЖНО СДАТЬ!!! ​

Answer 1

Ответ:

var s,k:integer;

begin

 readln(s);

 k:=s;

 repeat

   if s mod k = 0 then

   writeln(k);

   k := k-1;

 until k < 1

end.