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

• #615 lamadou senior tag

  Új Válasz 2005-04-17 14:31:22 #615

  Ú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

  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?

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