- 1
- 2
- 3
- 4
- 5
- 6
- 7
uses crt;
var s:integer;
begin
readln(s);
writeln(ord(s[0]));
readln;
end.
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+155
uses crt;
var s:integer;
begin
readln(s);
writeln(ord(s[0]));
readln;
end.
Предлагаю, продолжить играть в ассоциации.