Замените for ** while, чтобы алгоритм работал также: program Prostoe; var i,N,k:...

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 <br>--tut
end

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

Comments

также

---

обязательным параметром является i = i + 1

---

Тк цикл будет бесконечным без него