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

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

Ответы

Автор ответа: SkyBy
0

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