Комментарии 1

• var f: text; s, so, st: string; fo: file of string[5]; c: char; a: array [1..33]of integer; ast: array[1..33]of string; i, j, x1, x2, err1, err2: integer; begin readln(s); assign(f, s); readln(so); assign(fo, so); reset(f); rewrite(fo); while not eof(f) do begin read(f, c); if (ord(c) >= 1072) and (ord(c) <= 1103) then inc(a[ord(c) - 1071]) end; for i := 1 to 33 do if a[i] > 0 then begin str(a[i], s); ast[i] := ast[i] + chr(i + 1071) + '-' + s + ' '; end; for i := 1 to 33 do for j := i to 33 do begin val(copy(ast[i], 3, 2), x1, err1); val(copy(ast[j], 3, 2), x2, err2); if (err1 = 0) and (err2 = 0) and (x2 > x1) then begin st := ast[j]; ast[j] := ast[i]; ast[i] := st; end; end; for i := 1 to 33 do if ast[i] <> '' then begin write(fo, ast[i]); write(ast[i], ' '); end; end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

  var   f: text;   s, so, st: string;   fo: file of string[5];   c: char;   a: array [1..33]of integer;   ast: array[1..33]of string;   i, j, x1, x2, err1, err2: integer;   begin   readln(s);   assign(f, s);   readln(so);   assign(fo, so);   reset(f);   rewrite(fo);   while not eof(f) do   begin     read(f, c);     if (ord(c) >= 1072) and (ord(c) <= 1103) then inc(a[ord(c) - 1071])   end;   for i := 1 to 33 do     if a[i] > 0 then     begin       str(a[i], s);       ast[i] := ast[i] + chr(i + 1071) + '-' + s + ' ';     end;   for i := 1 to 33 do     for j := i to 33 do     begin       val(copy(ast[i], 3, 2), x1, err1);       val(copy(ast[j], 3, 2), x2, err2);       if (err1 = 0) and (err2 = 0) and (x2 > x1) then       begin         st := ast[j];         ast[j] := ast[i];         ast[i] := st;       end;     end;   for i := 1 to 33 do     if ast[i] <> '' then     begin       write(fo, ast[i]);       write(ast[i], ' ');     end; end.

  Ответить