program c4;

var

w: array[1..99] of string;

N: integer;

s: integer;

line: string;

i, j: integer;

begin

{чи­та­ем обу­ча­ю­щий блок}

for i := 1 to 9 do readln(w[i]);

for i := 11 to 19 do readln(w[i]);

for i := 1 to 9 do readln(w[10*i]);

{стро­им пол­ный сло­варь}

for i := 2 to 9 do begin

for j := 1 to 9 do begin

w[10*i + j] := w[10*i]+ ' ' + w[j];

end;

end;

{чи­та­ем и об­ра­ба­ты­ва­ем ос­нов­ной набор дан­ных}

readln(N);

s:= 0 ;

for i:=1 to N do begin

readln(line);

j:=1;

while (j<100) and (w[j]<>line) do j:=j+1;

if j<100 then s:=s+j; end;

writeln(s);

end.

const nw=27;

var

words: array[1..nw] of string;

values: array[1..nw] of integer;

{поиск слова в сло­ва­ре, воз­врат чис­ло­во­го зна­че­ния}

function word2value (w: string) : integer;

var

i: integer;

begin

i:=1;

while (i<=nw) and (words[i]<>w) do i:=i+1;

if i<=nw then word2value:=values[i]

else word2value:=0;

end;

var

N: integer;

s: integer;

v1, v2: integer;

line: string;

i, j: integer;

begin

{чи­та­ем обу­ча­ю­щий блок}

for i := 1 to 9 do begin

readln(words[i] ) ;

values[i] :=i ;

end;

for i := 10 to 18 do begin

readln(words[i]);

values[i]:=i+1;

end;

for i := 19 to 27 do begin

readln(words[i]);

values[i] :=10*(i-18) ;

end;

{чи­та­ем и об­ра­ба­ты­ва­ем ос­нов­ной набор дан­ных}

readln(N);

s:= 0 ;

for i:=1 to N do begin

readln(line);

j:=pos(line, ' ') ;

if j>0 then begin

v1:= word2value(copy(line,1,j-1));

v2:= word2value(copy(line,j+1,length(line)-j));

if (v1>0) and (v2>0) then s:=s+v1+v2;

end

else begin

v1:= word2value(line);

if v1>0 then s:=s+v1;

end;

end;

writeln(s);

end.

FOR i = 1 TO 9

LINE INPUT w$(i)

NEXT i

FOR i = 11 TO 19

LINE INPUT w$(i)

NEXT i

FOR i = 10 TO 90 STEP 10

LINE INPUT w$(i)

NEXT i

FOR i = 20 TO 9 0

FOR j = 1 TO 9

w$(i + j) = w$(i) + " " + w$(j)

NEXT j

NEXT i

INPUT N s = 0 FOR i = 1 TO N

LINE INPUT line$

j = 1

WHILE j < 100 AND w$(j) <> line$

j = j + 1

WEND

IF j < 10 0 THEN s = s + j

NEXT i

PRINT s

END

лит­таб слова[1:99]

лит трока

цел N

цел сумма

цел i, j

нц для i от 1 до 9

ввод слова[i]

кц

нц для i от 11 до 19

ввод слова[i]

кц

нц для i от 10 до 90 шаг 10

ввод слова[i]

кц

нц для i от 20 до 90 шаг 10

нц для j от 1 до 9

кц

кц

ввод N

сумма:= 0

нц для i от 1 до N

ввод стро­ка

j : =1

нц пока j < 10 0 и слова [j] <>стро­ка

j:=j +1

кц

если j <10 0 то сумма:=сумма+j все

кц вывод

кон

chomp ($w = <>) ;

$value{$w} = $v; }

$n = <>;

$s = 0;

while ($ n--) {

chomp ($line = <>);

$num = 0;

$value{$w}}

for $w (split / /,$line) {

if ($value{$w}) {$num += $value{$w}}

else {$num=0; last}

}

$s += $num;

}

print $s;