Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » "Код сейфа"
"Код сейфа"
Джеймс Бонд узнал код сейфа, в котором хранятся ценные документы. Этот код ему нужно передать своему напарнику. Он решил этот код зашифровать следующим образом. Он прислал своему напарнику записку, которая содержала только маленькие буквы латинского алфавита. Напарник знал, что каждой букве в алфавитном порядке сопоставляются числа от 1 до 26: 'а' — это 1, 'b' — 2, 'с' — 3, .... 'z' — 26. Если все числа, соответствующие буквам записки, сложить, то получится тот самый код, который Джеймс Бонд зашифровал. Помогите напарнику расшифровать записку.

Входные данные: Во входном файле записана одна строка, содержащая только буквы латинского алфавита. Длина строки не превосходит 255 символов.

Выходные данные: В выходной файл необходимо записать одно целое число — код сейфа.

Примеры:

input.txt output.txt
abc 6
ху 49

1 | Автор: anel85 | 2010-10-14, 14:54   |  Репутация: [ + 0 ]
Code
var i, sum: integer;
s: string;
begin
sum:=0;
readln(s); {получили симольную строку маленьких латинских букв}
for i:=1 to length(s) do
sum:=sum+(ord(s[i])-96); {в цикле перебираем каждый символ, берем его табличный код и отнимаем 96 - получаем порядковый}
writeln(j); {выводим после суммирования}
readln;
end.


If you can't make it GOOD make it LOOK GOOD. B.Gates
2 | Автор: DoVe | 2010-10-14, 16:06 | Изменено: DoVe - Чт, 2010-10-14, 16:06   |  Репутация: [ + 48 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » "Код сейфа"
Страница 1 из 11
Поиск: