Автор: asdfg

asdfg — Fri, 27 Aug 2021 19:53:04 +0000

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.

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;

for i := 1 to 33 do

if ast[i] <> '' then

begin

write(fo, ast[i]);

write(ast[i], ' ');

end;

end.

Комментарии: Решаем задачи Абрамян на Паскале. Text58

Автор: asdfg