Автор: asdfg

asdfg — Sat, 28 Aug 2021 14:19:30 +0000

var
  s, n, st, sc: string;
  f: text;
  c: char;
  i, cx, x, err: integer;
  a: array [1..10] of integer;

begin
  readln(s);
  readln(n);
  assign(f, n);
  reset(f);
  readln(f, st);
  for i := 1 to length(s) do
  begin
    inc(cx);
    if (ord(s[i]) >= 1072) and (ord(s[i]) <= 1103) then
      if ord(st[i]) - ord(s[i]) < 0 then
        a[cx] := (ord(st[i]) - 1071) + (1103 - ord(s[i]))
      else
        a[cx] := ord(st[i]) - ord(s[i]);
    if (ord(s[i]) >= 1040) and (ord(s[i]) <= 1071) then
      if ord(st[i]) - ord(s[i]) < 0 then
        a[cx] := (ord(st[i]) - 1039) + (1071 - ord(s[i]))
      else
        a[cx] := ord(st[i]) - ord(s[i]);
    if cx = 10 then cx := 0;
  end;
  s := '';
  for i := 1 to 10 do 
  begin
    str(a[i], st);
    s := s + st;
  end;
  reset(f);
  while not eof(f) do
  begin
    cx := 0;
    while not eoln(f) do
    begin
      read(f, c);
      inc(cx);
      sc := copy(s, cx, 1);
      val(sc, x, err);
      if (ord(c) >= 1072) and (ord(c) <= 1103) then
        if ord(c) - x < 1072 then 
          c := chr(1103 - (x - (ord(c) - 1071)))
        else 
          c := chr(ord(c) - x);
      if (ord(c) >= 1040) and (ord(c) <= 1071) then 
        if ord(c) - x < 1040 then 
          c := chr(1071 - (x - (ord(c) - 1039)))
        else
          c := chr(ord(c) - x);
      write(c);
      if cx = 10 then cx := 0;
    end; 
    readln(f);
    writeln;
  end;
end.

var

s, n, st, sc: string;

f: text;

c: char;

i, cx, x, err: integer;

a: array [1..10] of integer;

begin

readln(s);

readln(n);

assign(f, n);

reset(f);

readln(f, st);

for i := 1 to length(s) do

begin

inc(cx);

if (ord(s[i]) >= 1072) and (ord(s[i]) <= 1103) then

if ord(st[i]) - ord(s[i]) < 0 then

a[cx] := (ord(st[i]) - 1071) + (1103 - ord(s[i]))

else

a[cx] := ord(st[i]) - ord(s[i]);

if (ord(s[i]) >= 1040) and (ord(s[i]) <= 1071) then

if ord(st[i]) - ord(s[i]) < 0 then

a[cx] := (ord(st[i]) - 1039) + (1071 - ord(s[i]))

else

a[cx] := ord(st[i]) - ord(s[i]);

if cx = 10 then cx := 0;

end;

s := '';

for i := 1 to 10 do

begin

str(a[i], st);

s := s + st;

end;

reset(f);

while not eof(f) do

begin

cx := 0;

while not eoln(f) do

begin

read(f, c);

inc(cx);

sc := copy(s, cx, 1);

val(sc, x, err);

if (ord(c) >= 1072) and (ord(c) <= 1103) then

if ord(c) - x < 1072 then

c := chr(1103 - (x - (ord(c) - 1071)))

else

c := chr(ord(c) - x);

if (ord(c) >= 1040) and (ord(c) <= 1071) then

if ord(c) - x < 1040 then

c := chr(1071 - (x - (ord(c) - 1039)))

else

c := chr(ord(c) - x);

write(c);

if cx = 10 then cx := 0;

end;

readln(f);

writeln;

end;

end.

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

Автор: asdfg