Új hozzászólás Aktív témák

• #616 lamadou senior tag lamadou #615

  Új Válasz 2005-04-17 14:45:33 #616

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lamadou

  senior tag

  válasz lamadou #615 üzenetére

  idő közben rájöttem a hibára. a helyes program:
  

  
  program prim;
  uses crt;
  var i,k,s : integer;
  begin
   clrscr;
   s:=10;
   for i:=1 to 10 do
    begin
     for k:=2 to i-1 do
      begin
      if i mod k <s then s:=i mod k;
      end;
     if s>0 then writeln(i);
     s:=10;
     end;
     readkey;
     end.
  

Új hozzászólás Aktív témák