PASKAL : вывести все простые числа в интервале от 1 до 50 (желательно с объяснением,...

Question

PASKAL : вывести все простые числа в интервале от 1 до 50 (желательно с объяснением, очень срочно, проверьте у себя на ПК для достоверности) СПАСИБО БОЛЬШОЕ

Answer 1

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('N=');
  for var i:=1 to n do begin
    var (flag,j,r):=(True,2,Round(Sqrt(i)));
    while flag and (j<=r) do<br>      if i mod j = 0 then flag:=false
      else j+=1;
    if flag then Print(i)
    end
end.

Пример
N= 50
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47

---