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

• #659 Lortech addikt lamadou #658

  Új Válasz 2005-04-17 14:58:19 #659

  Ú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

  

  Lortech

  addikt

  válasz lamadou #658 üzenetére

  Leírnád, hogy hogy gondolkodtál? Nézegetten az előzőt is, de elég nehezen fogom fel. Az s változó szerepét nem nagyon tudom hova tenni. Pl megadsz neki más értéket, és akkor is ugyanaz lesz az eredmény.
  Az előzőt amúgy erre javítottam ki, vagyis inkább átírtam:
  

  
  program prim;
  uses crt;
  
  var i,k : integer;
  volt:boolean;
  begin
   clrscr;
   for i:=2 to 10 do
   begin
      volt:= false;
     for k:=2 to i-1 do
      begin
      if i mod k =0 then volt:=true;
      end;
     if volt=false then writeln(i);
     end;
     readkey;
     end.
  

  
  
  [Szerkesztve]

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