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

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

Answer 2

также

Answer 3

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

Answer 4

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