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

• #652 VladimirR nagyúr gyuszmok #650

  Új Válasz 2005-04-15 15:22:50 #652

  Ú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

  

  VladimirR

  nagyúr

  válasz gyuszmok #650 üzenetére

   

  1:

  
  procedure kiir(mit:string);
  begin
       writeln('ezt irtad: '+mit);
  end;
  
  procedure beolvas(var mibe:string);
  begin
       write('irjal be valamit: ');
       readln(mibe);
  end;
  
  s: string;
  
  begin
       beolvas(s);
       kiir(s);
  end.

  
  
  2:

  
  var tomb:array[1..15] of string;
      i: byte;
  
  begin
       for i:=1 to 15 do
           tomb[i]:='ez a tomb'+i+'. eleme';
       for i:=1 to 15 do
           writeln tomb[i];
  end.

  
  
  [Szerkesztve]

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