Тема:символьный тип в паскаль
Вычислить сумму порядковых номеров всех букв , входящих в слово SUM
Помогите ,пожалуйста
Вычислить сумму порядковых номеров всех букв , входящих в слово SUM
Помогите ,пожалуйста
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Vari, s: integer;
str: string;
begin
str := 'SUM';
for i := 1 to Length(str) do
s := s + ord(str[i]);
writeln(s);
end.