Скачиваний:
41
Добавлен:
02.05.2014
Размер:
1.74 Кб
Скачать
program lab_6;
uses crt;
var
i,dl,j,l,max,lider,sum:integer;
st,n,k:string[32];
A,B:array[1..32] of string;
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ бва®Єг ­Ґ Ў®«миго 32 бЁ¬ў®«®ў');
read(st);
for i:=1 to length(st) do A[i]:=st[i];
n:='00';
for i:=1 to length(st)-1 do
begin
if (A[i]<>',') then dl:=dl+1;
if (dl<3) and (A[i]=',') and (dl<>0) then dl:=dl+1;
if (i=1) and (A[1]<>',') then n:=A[i];
if (A[i]=',') and (A[i+1]<>',') and (n='00') then n:=A[i+1];
if (dl>7) and (n<>'00') then
begin
j:=j+1;
k:=A[i-1];
writeln(j,' Ї а - ',n,'___',k);
B[j]:=n+k;
n:=A[i];
dl:=1;
end;
if (n<>'00') and (dl>=3) and (dl<=7) and (A[i+1]=',') then
begin
j:=j+1;
k:=A[i];
writeln(j,' Ї а - ',n,'___',k);
B[j]:=n+k;
n:='00';
dl:=0;
end
else
if (n<>'00') and (i=length(st)-1) and (dl>=3) and (A[i+1]<>',') then
begin
j:=j+1;
k:=A[i+1];
writeln(j,' Ї а - ',n,'___',k);
B[j]:=n+k;
end;
end;

for i:=1 to j do
begin
for l:=1 to j do
if B[i]=B[l] then sum:=sum+1;
if sum>max then
begin
lider:=i;
max:=sum;
end;
sum:=0;
end;
write('Ќ ЁЎ®«ҐҐ з бв® ўбваҐз ойЁҐбп Ї ал- ');
if max=1 then write('‚ᥠЇ ал Ї® ®¤­®¬г а §г') else
for i:=1 to j do
begin
for l:=1 to j do
if B[i]=B[l] then sum:=sum+1;
if sum=max then write(i,',');
sum:=0;
end;
readln;
readln;
end.

Соседние файлы в папке Лабораторная работа1