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

EvaPark1997 EvaPark1997    1   23.09.2019 02:20    0

Ответы
MikasaHasegava MikasaHasegava  08.10.2020 11:13
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.

Составить программу вывода всех простых трехзначных чисел используя for to 99б
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика