Автор: asdfg

asdfg — Sat, 21 Aug 2021 20:21:16 +0000

var
n1,n2,s:string;
f1,f2:file of integer;
i,c:integer;
begin
  readln(n1);
  assign(f1,n1);
  readln(n2);
  assign(f2,n2);
  reset(f1);
  reset(f2);
  for i:=1 to filesize(f1) do
  begin
  write('|');
  read(f1,c);
  write(c:14);
  read(f2,c);
  write(c:14);
  write('|');
  writeln;
  end;
end.

var

n1,n2,s:string;

f1,f2:file of integer;

i,c:integer;

begin

readln(n1);

assign(f1,n1);

readln(n2);

assign(f2,n2);

reset(f1);

reset(f2);

for i:=1 to filesize(f1) do

begin

write('|');

read(f1,c);

write(c:14);

read(f2,c);

write(c:14);

write('|');

writeln;

end;

end.

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

Автор: asdfg