[iluxa1810]

Определить кол-во простых числе в интервале от N до M ,где N и M - натуральные числа .

[iluxa1810]

Пытался через While делать ,но счетчик почему-то не наращивается

[lmikle]

Угу, при цикле While счетчик надо самому наращивать.
Только вопрос, а почему не for?

Код:

function IsSimpleNumber(A : Integer) : Boolean;
begin
  // Здесь сам напишешь
end;

var
  I, Count : Integer;
begin
  Count := 0;
  For I := M To N Do
    If IsSimpleNumber(I) Then Inc(Count);
end;