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

• lamadou senior tag

  #616

  #615 lamadou

  2005-04-17 14:45:33

  Új Válasz

  Ú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

  

  lamadou

  senior tag

  #615 lamadou

  #615 lamadou

  hello. Szerintetek ennek a Pascal programnak mit kéne csinálnia?
  

  
  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);
     end;
     readkey;
     end.

  
  Én azt akartam, hogy írja ki a prímszámokat 10-ig, de csak az 1,2,3 számokat írja ki. Mi a hiba?

  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