[iluxa1810]

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

[iluxa1810]

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

[lmikle]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;