Закодируйте тексты в виде кода ASCII текст Apple
Закодируйте тексты в виде кода ASCII текст Apple
Гость
Ответ(ы) на вопрос:
ГостьVar s: string;
i: integer;
Begin
Write ('Введите слово: ');
Read (s);
For i:=1 To length(s) Do
Write (ord(s[i]), ' ');
End
Не нашли ответ?
Похожие вопросы