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

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

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

   01 март, четвъртък в 09:14

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

   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.

   Влезте, за да отговорите