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

• #661 lamadou senior tag

  Új Válasz 2005-04-17 18:57:58 #661

  Ú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

  közben szépítettem a progit:
  

  
  program prim;
  uses crt;
  var i,k,s,szam,ig,tol : integer;
  begin
   clrscr;
   writeln('Add meg mettől szeretnéd vizsgálni a számokat!');
   readln(tol);
   writeln('Add meg meddig szeretn‚d viszgálni a számokat!');
   readln(ig);
   s:=ig;
   for i:=tol to ig 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 begin
     writeln(i);
     szam:=szam+1;
     end;
     s:=ig;
     end;
     writeln('Összesen ',szam,' prímet találtam, a választott tartományban.');
     readkey;
     end.

  
  
  Így szebb nem?

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