Предмет: Информатика,
автор: 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.
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.
Приложения:
![](https://files.topotvet.com/i/d77/d7778bb1aea7e75be5b48a58faf7121e.jpg)
Похожие вопросы
Предмет: Қазақ тiлi,
автор: akikai
Предмет: Математика,
автор: amongustoptuloh666
Предмет: Химия,
автор: aydarkalimullin03
Предмет: Литература,
автор: Аноним
Предмет: Математика,
автор: Жанна031