Предмет: Информатика, автор: gladkovadiana2456

помогите пожалуйста надо это yoonmin_in_my_heart перевести в цифры
заранее огромное спасибо

Ответы

Автор ответа: ЯковПервый
0
//Если нужно будет перевести другую строку в цифры, то не забудь поменять параметр Size. В него нужно будет записать количество символов в строке

Program Test;

const Size = 19;

Var i, tmp: integer; Str, Resultat: string;

Begin

Str := 'yoonmin_in_my_heart';

for i := 1 to Size do
begin
tmp := ord(Str[i]);
Resultat := Resultat + tmp
end;

Writeln(Resultat);

End.
Приложения:
Похожие вопросы
Предмет: Қазақ тiлi, автор: akikai
Предмет: Математика, автор: amongustoptuloh666
Предмет: Математика, автор: Жанна031