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

• #657 lamadou senior tag

  Új Válasz 2005-04-17 14:27:45 #657

  Ú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 programnak mit kellene 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 úgy gondoltam, hogy kiírja a prímeket 10-ig, de nem. csak az 1, 2, 2-at. Hol a hiba?

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