var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
Ккачай кряк для <span>need for speed most wanted, или скачай уже крякнутный.</span>
Что-то не очень верно записана задача
что за сумма кодов?
количество символов в слове это команда length
к примеру
var
S : String;
begin
ReadLn(S); // пишем байт
WriteLn('"', S, '"');
WriteLn('Длина = ', Length(S));
end<span>.
</span>
если надо сумму цифр которыми кодируются русские буквы на клавиатуре, то таблица в прикрепленном файле, думаю не составит труда написать простейшую программку для сложения
1. Курилы
2. Хорошего Колумб
3. Жи-ши пиши с буквой "и"
4.Пифагоровы "штаны" во все стороны равны
5. S= ab
6. Демон- М. Ю. Лермонтов
1 информация
2 объекта
3 своих органов чувств
4 реакция
5 объект
остальное не знаю