коды.. .
var a,b:char;
begin
writeln('Введите символы');
readln(a,b);
writeln('код 1 числа - ',ord(a));
writeln('код 2 числа - ',ord(b));
if ord(a) < ord(b) then
writeln('a < b')
else if ord(a) > ord(b) then
writeln('b < a')
else writeln('a = b');
readln;
end.
Что-то не очень верно записана задача
что за сумма кодов?
количество символов в слове это команда length
к примеру
var
S : String;
begin
ReadLn(S); // пишем байт
WriteLn('"', S, '"');
WriteLn('Длина = ', Length(S));
end<span>.
</span>
если надо сумму цифр которыми кодируются русские буквы на клавиатуре, то таблица в прикрепленном файле, думаю не составит труда написать простейшую программку для сложения
1)Органолептический
2)Тактильный
3)Визуальный
4)Звуковой
Список атрибутов отделяется от имени тега одним или несколькими пробелами.