Вопрос Задача. Составить программу вычисления суммы порядковых номеров всех букв, входящих в фамилию, имя и

[Анатоли]

Program Rabota8;
Var
i,s:integer;
fio:string;
Begin
s:=0;
Readln(fio);
for i:=1 to Length(fio) do
case fio of
’A’. . ’Z’ :inc(s, Ord(fio)-Ord(’A’)+1);
’a’. . ’z’ :inc(s, Ord(fio)-Ord(’a’)+1);
end;
Writeln(’S= ’,s);
Readln;
End.

помогите, нужна помощь, срочно!

 

[Alexandr]

Вы пытаетесь вычислить сумму с использованием преобразований кодов для английского алфавита. Но, вероятно, ФИО студента должно быть введено на русском! Это будет выглядеть вот так на PascalABC.NET//otvet.imgsmail.ru/download/34182886_c0940b09be3ce9425e0d660fa63d7436_800.jpg

 

[MrFreezer]

Программа вычисляет сумму порядковых номеров всех букв, входящих в фамилию, имя и отчество//otvet.imgsmail.ru/download/34152442_016bb22f5a88526408bbbbf3a50a2a0e_800.jpg