Отпечатване на ASCII кода на символ

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

One Response to Отпечатване на ASCII кода на символ

  1. Данаил каза:

    Решението на задачата е:

    program Project1;
    var
      simvol: char;
      ascii_kod: integer;
    begin
      Write('vavedete simvol: ');
      ReadLn(simvol);
      ascii_kod:= ord(Simvol);
      WriteLn('ASCII kodat mu e ', ascii_kod);
      ReadLn;
    end.

    Ако искаме да опитаме с повече от един символ, може да добавим команда за цикъл:

    program Project1;
    var
      simvol: char;
      ascii_kod: integer;
    begin
      while (True) do begin
          Write('vavedete simvol: ');
          ReadLn(simvol);
          ascii_kod:= ord(Simvol);
          WriteLn('ASCII kodat mu e ', ascii_kod);
      end;
      ReadLn;
    end.

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