Помогите составить программу

xardlin · 22.01.2012, 13:36

Составить программу, которая находит сумму порядковых номеров(кодов) букв, вход в слово SUM.

Vladimir_S · 22.01.2012, 16:58

Цитата:

Сообщение от xardlin

Составить программу, которая находит сумму порядковых номеров(кодов) букв, вход в слово SUM.

Ну коль скоро язык программирования традиционно не указан, выбираем ТурбоПаскаль:

Код:

Var
 S:String;
 Sum:Word;
 i:Byte;
Begin
 Writeln('Enter the string:');
 Readln(S);
 Sum:=0;
 For i:=1 to Length(S) do Inc(Sum,Ord(S[i]));
 Writeln('Sum = ',Sum);
 Readln
End.

22.01.2012, 13:36	#1 (permalink)
xardlin Новичок Регистрация: 22.01.2012 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите составить программу Составить программу, которая находит сумму порядковых номеров(кодов) букв, вход в слово SUM.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

22.01.2012, 13:36
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Аналогичные проблемы должны вам помочь Помогите составить программу на турбо паскаль Помогите составить программу на Паскале

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070