function count_ya(var s: string): integer; begin var i, n, len: integer; var c: char;
n := 0; len := Length(s); for i := 1 to len do begin c := s[i]; if (c = 'я') or (c = 'Я') then begin n := n + 1; end; end;
result := n; end;
procedure word(var s: string); begin var i, c, k, j: integer;
c := count_ya(s);
for i := 0 to 10 do begin if count_ya(Sim[i]) < c then begin for k := 9 downto i do begin Sim[k + 1] := Sim[k]; end;
Sim[i] := s; break; end; end; end;
Begin Var C: Char; Var i, k: integer; Var f1: text; Var s: string;
assign(f1, 'file1.txt'); reset(f1); randomize;
i := 0; while not Eof(f1) do begin read(f1, C); if ((C >= 'а') and (C <= 'я')) or ((C >= 'А') and (C <= 'Я')) then begin i := 1; s := s + C; end else begin if i = 1 then begin word(s); end; i := 0; s := ''; end; end;
if i = 1 then begin word(s); end;
close(f1);
for i := 0 to 10 do begin s := Sim[i]; if s = '' then break; writeln(s); end; end.
Язык Pascal uses crt; var cs1,cs2,res,change:integer; TD:string; function FromDec(n,r:longint):string; var s:String; const digit:string[16]='0123456789ABCDEF'; begin s:=''; repeat s:=digit[(n mod r)+1]+s; n:=n div r; until n=0; FromDec:=s; end; function ToDec(n:string;r:longint):longint; var m,i:longint; const digit:string[16]='0123456789ABCDEF'; begin m:=0; while n[1]='0' do delete(n,1,1); for i:=1 to length(n) do m:=m*r+pos(n[i],digit)-1; ToDec:=m; end; begin writeln('Введите из какой CC:'); repeat readln(cs1); until (cs1>=2) and (cs1<=36); writeln('Введите число в соответствии с CC:'); readln(TD); writeln('Введите в какую CC:'); repeat readln(cs2); until (cs2>=2) and (cs2<=36); writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:'); writeln(FromDec(ToDec(TD,cs1),cs2)); end.
Это передача информации