Паскаль.цикл while.

[vladter]

Всем добрый день,прошу помочь в решении задачи
её условие:
Дано целое число, не меньшее 2. Выведите его наименьший натуральный делитель, отличный от 1.

[Alex11223]

Вот решение похожей задачи (вывод всех делителей, а не только первого)

var
  i, j, n, k: integer;

begin

  write('Enter natural number: ');
  readln(n);
  for i := 1 to n do 
    if n mod i = 0 then begin
      for j := 2 to i div 2 do
        if i mod j = 0 then k:=k+1;
      if k = 0 then writeln(i);
    end;
  readln;
end.

[Pein95]

Alex11223
здесь вродь нужно с помощю цыкла while)

[Alex11223]

Ну переделать for на whileне сложно.

[Pein95]

ет вам и мне не сложно а некоторым может быть и сложно)

[Вадим Мошев]

Но я могу решить именно ту задачу, которая была поставлена автором теме, без проблем.
За 50 рублей на сотовый телефон.

[Alex11223]

Насколько помню автор изучает Паскаль для себя. Так что если поймет алгоритм, то вряд ли возникнут трудности в переделывании.

[Pein95]

ясн) не знал что изучает для себя, думал просто препод задание дал)