Question

Замените for на while, чтобы алгоритм работал также: program Prostoe; var i,N,k: integer; begin write('введите число: '); readln(N); k:=0; for i:=2 to N div 2 do if N mod i =0 then k:=k+1; if k=0 then write('простое') else writeln('не простое'); readln; end.

Answer 1

#С языком не знаком

Вообщем объясню в крациях по понятному мне языку -

i = 0
while i <= 10 do 
--tut
end

Под это подстрой свой скрипт.