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

• #749 peterszky őstag

  Új Válasz 2005-10-19 17:51:16 #749

  Ú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

  

  peterszky

  őstag

  íme:
  

  
  program hazi;
  uses crt;
  var a,b,i:char;
  var c:integer;
  begin
   clrsrc;
   writeln('kérem az első betűt');
   readln(a);
   writeln('kérem a második betűt');
   readln(b);
   begin
    writeln('Rendezéshez nyomja meg:');
    writeln('1 - abc sorrendben');
    writeln('1 - fordítva');
    readln(c);
    if c=1 then for i:= a to b do writeln(i);
    if c=2 then for i:= a downto b do writeln(i);
    end;
   readkey;
  end.
  

  
  ennyi lenne

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