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

• #658 lamadou senior tag lamadou #657

  Új Válasz 2005-04-17 14:46:14 #658

  Ú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 #657 üzenetére

  Meg van a hiba. 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