//Наверное, мелся ввиду Unicode
var s:string;i:integer;
begin;
s:='"Скоро новыий год!"';
for i:=1 to length(s) do
write('-',ordunicode(s[i]));
<span>end.
Вывод:
34-1057-1082-1086-1088-1086-32-1085-1086-1074-1099-1080-1081-32-1075-1086-1076-33-34
</span>
Оператором сотовой связи называется организация имеющая лицензию предоставления услуг сотовой связи и оказывающая эти услуги — (5)
<span>Что бы подробно посмотреть,набери 4004 в браузере,или свой вопрос.
Он всё выдаст)Я бы тебе скопировала,но не могу,так как пишет что нельзя копировать=(И кстати,сделали его в 1971 году.
</span>
Program pm;
uses crt;
var X:array[1..1000] of integer; k,a,b,i:integer;
begin
clrscr;
write('Введите кол-во элементов массива: ');
read(k);
writeln;
write('Введите диапазон значений заполнения(A-начальное значение, B-конечное): ');
repeat
read(a,b);
until a<=b;
writeln;
randomize;
for i:=1 to k do X[i]:=random(b-a+1)+a;
writeln('Ваш массив:');
for i:=1 to k do write(X[i]:5);
writeln;
write('Введите элемент поиска: ');
read(b);
a:=0;
for i:=1 to k do if X[i]=b then a:=i;
if a>0 then writeln('Элемент со значением ',b,' имеет индекс ',a)
else writeln('Элемента не существует!');
readkey;
<span>end.</span>