Question

Срочно! Составить программу вывода всех простых трехзначных чисел используя for to
99б

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

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