Ответы и объяснения

  • SkyBy
  • главный мозг
2013-11-13T00:23:59+00:00

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