Пореден номер в азбуката

Да се въведе буква и да се изведе поредния и номер в азбуката.
Публикувано в с етикети . Постоянна връзка.

2 коментара по Пореден номер в азбуката

  1. kaloyan каза:
    VAR poreden_nomer : integer;
        bukva : char;
    BEGIN
      while(true) do begin
      write('vavedete malka bukva: '); readln(bukva);
      poreden_nomer:=((ord(bukva))-97+1);
      writeln('poredniqt nomer na bukvata e: ', poreden_nomer); end;
    readln;
    END.   
  2. Lubomir Dizela каза:
     program project1;
       var
          kod, poreden_nomer: integer;
          s, b: char;
    begin
    WriteLn('Vuvedete bukvata: ');
    ReadLn(b);
    kod:=Ord(b);
    poreden_nomer:=kod - Ord('A') + 1;
    WriteLn('Bukvata e ', poreden_nomer, '-a po red');
    ReadLn;
     

Вашият коментар