Курсовая работа: Работа с текстовыми строками, двумерными массивами, файловыми структурами данных
end;
end;
end;
procedure slv;
var
i, j: integer;
begin
Readln(first, S1);
readln(second, S2);
S1 := ' ' + S1 + ' ';
S2 := ' ' + S2 + ' ';
k1 := 0;
k2 := 0;
for i := 1 to length(S1) do
begin
if s1[i] = ' ' then
begin
for j := i + 1 to length(s1) do
if s1[i + 1] <> ' ' then
if s1[j] = ' ' then begin
k1 := k1 + 1;
slova1[k1] := copy(s1, i + 1, j - i - 1);
break;
end;
end;
end;
for i := 1 to length(S2) do
begin
if s2[i] = ' ' then