Free Pascal!! задание по строкам!!)

[Vika_0_0]

Каждой букве алфавита(букву ё не учитывать) поставить в соответствие код-номер места буквы в алфавите(от 1-32). Заданное слово записать с помощью кода, разделяя коды букв пробелами.

[whatever]

Не на всех компиляторах будет работать, я писал на Free Pascal:

program abc;
uses
  crt;
type
  TABC=array[160..192] of integer;
var
  s:string;
  i:integer;
  k:integer;
  abc:tabc;
begin
  readln(s);
  k:=1;
  for i:=160 to 192 do
    begin
      abc[i]:=k;
      inc(k);
    end;

  for i:=1 to length(S) do
    begin
      if ord(s[i])>175 then
        k:=ord(s[i])-48
      else
        k:=ord(s[i]);
      write(abc[k],' ');
    end;
  readln
end.

[IT-man]

 for i:=160 to 192 do
    begin
      abc[i]:=k;
      inc(k);
    end;

оригинально)

 for i:=160 to 192 do
    begin
      abc[i]:=i-159;
    end;

не?

[Serge_Bliznykov]

а так не проще?

const
  RusLo = 'абвгдежзийклмнопрстуфхцчшщъыьэюя';
  RusUp = 'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var s : string;
 i, k : integer;
begin
   WriteLn('Введите слово на русском языке: ');
   Readln(s);
   for i:=1 to length(s) do begin
     k := Pos(s[i], RusLo);
     if k>0 then Write(k,' ')
     else begin
        k := Pos(s[i], RusUp);
        if k>0 then Write(k,' ');
     end;
   end;
   WriteLn;
   Readln
end.

[whatever]

Сообщение от IT-man

 for i:=160 to 192 do
    begin
      abc[i]:=k;
      inc(k);
    end;

оригинально)

 for i:=160 to 192 do
    begin
      abc[i]:=i-159;
    end;

не?

к - это атовизм от предыдущего варианта, потом не заметил

Serge_Bliznykov, согласен, как-то я на ord и char зациклился.