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.
помогите, нужна помощь, срочно!
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.
помогите, нужна помощь, срочно!