Дан символ C. Вывести его код (то есть его номер в кодовой таблице)

Категория: Delphi/Pascal

2012-06-04 22:30:30

code: #pascal

Program stroka1;
Var a:byte;
b:char;
begin
b:='C';
a:=ord(b);
writeln('код равен ',a);
readln;
end.

Поделиться:

Sample Code