用for 循环找素数

  File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help
╔═[■]══════════════════════════════ SS2.PAS ═════════════════════════════1═[↕]═╗
║program su2;                                                                  ▲
║var i,k                                                                       ■
║:integer;prime:boolean;                                                       ▒
║const                                                                         ▒
║n=100;                                                                        ▒
║begin                                                                         ▒
║for i:=2 to n  do                                                             ▒
║begin                                                                         ▒
║prime:=true;                                                                  ▒
║ for k:=2 to i-1 do                                                           ▒
║   begin                                                                      ▒
║   if i mod k=0 then                                                          ▒
║   begin                                                                      ▒
║   prime:=false;                                                              ▒
║   break;                                                                     ▒
║   end                                                                        ▒
║   end;                                                                       ▒
║if (prime=true) then                                                          ▒
║  writeln(i:5);                                                               ▒
║                                                                              ▒
║end;                                                                          ▼
╚═══════ 1:1 ═════◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►─┘