Question

Закодируйте тексты в виде кода ASCII текст Apple

Answer 1

Var s: string;
i: integer;
Begin
Write ('Введите слово: ');
Read (s);
For i:=1 To length(s) Do
Write (ord(s[i]), ' ');
End