задачи олимпиадные(массивы, строки, комбинаторные) Опции

[NightPaladin]

Посомтрите задания плз

Очень нуждаюсь в помощи

Сообщение отредактировано: NightPaladin - 15.05.2005 7:41

[NightPaladin]

по третьей пока только такие наброски

Код

program asd;
Uses crt;
var
   s:string;
   mas: array[a..z] of Byte;
procedure getposl(s:string);
var
  i   :  byte;
  ss  :  string;
  b   :  boolean;
begin

 ss:=''; b:=false;
 for i:=1 to length(s) do
     begin
          if b then begin ss:=ss+s[i] end; {next}
          if (s[i]=s[i+1]) and (b=false) then begin ss:=ss+s[i]; b:=true; end; {new}
          if ((NOT((s[i]=s[i+1])))or (i=length(s))) and (b=true) then begin
          if ss<>'' then {*****}writeln(ss);{*****} ss:='';b:=false end;
     end
end;

begin
readln(s);

      mas[a]:=2; mas[b]:= 22; mas[c]:= 222; mas[d]:=3; mas[e]:=33; mas[f]:=333;
      mas[g]:=4; mas[h]:= 44; mas[i]:=444; mas[j]:=5; mas[k]:=55; mas[l]:=555;
      mas[m]:=6; mas[n]:=66; mas[o]:=666; mas[p]:= 7; mas[r]:= 77; mas[s]:=777;
      mas[t]:=8; mas[u]:=88; mas[v]:=888; mas[w]:=9; mas[x]:=99; mas[y]:=999;
getposl(s)
end.

Сообщение отредактировано: volvo - 15.05.2005 9:34