Дистанционная подготовка: Артур Гаязович,не заходите сюда
Артур Гаязович,не заходите сюда
от Алмаз Забиров - Вторник 28 Январь 2020, 08:57
112510. Алфавитно-частотный словарь
  type U = record
slovo:string; g:integer;
end;
var m: array [1..10000] of U;
i,j,c:integer; s:string; d:boolean; t:U; f,h:text;
begin
assign(f,'input.txt'); reset(f);
assign(h, 'output.txt'); rewrite(h);
i:=0;
while not eof(f) do begin
readln(f,s);
if s<>'' then d:=false;
for j:=1 to i do begin
if s=m[j] .slovo then begin
inc(m[j].g);
d:=true;
end; end;
if d=false then begin
inc(i);
m[i] .slovo:=s;
m[i].g:=1;
end; end;
for j:=1 to i-1 do begin
for c:=1 to i-j do begin
if m[c].slovo >m[c+1].slovo then begin
t:=m[c];
m[c]:=m[c+1];
m[c+1]:=t;
end; end; end;
for j:=1 to i do begin
writeln(h,m[j].slovo,' ',m[j].g);
end;
close(f); close(h);
end.