14. Используя таблицу 1.19, расшифруйте следующие сообщения. Таблица 1.20 (9,1) (1,1) (2,2) (1,3) (4,1) (12,1) (5,3) (10,3) (3,2) (1,2) (2,1) (6,3) (11,3) (12,1) (3,1) (5,1) (4,1) (10,3) (4,2) (5,1) (2,2) (12,1) (1,2) (2,2) (10,3) (4,1) (4,2) (6,3) (2,2) (12,3)

Question

Информатика: 14. Используя таблицу 1.19, расшифруйте следующие сообщения. Таблица 1.20 (9,1) (1,1) (2,2) (1,3) (4,1) (12,1) (5,3) (10,3) (3,2) (1,2) (2,1) (6,3) (11,3) (12,1) (3,1) (5,1) (4,1) (10,3) (4,2) (5,1) (2,2) (12,1) (1,2) (2,2) (10,3) (4,1) (4,2) (6,3) (2,2) (12,3)

софия682 · Accepted Answer

1. Программа, создающая тестовый файл.

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var f: file of integer;
var t:integer;
Assign(f,'input.dat'); Rewrite(f);
for var j:=1 to 5 do begin
    for var i:=1 to 10 do begin t:=Random(10,99); Write(f,t) end;
    for var i:=1 to 10 do begin t:=-Random(10,99); Write(f,t) end
    end;
f.Close;
end.

2. Программа, которую требовалось написать

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var f,g: file of integer;
var a:=new integer[20];
var t:integer;
Assign(f,'input.dat'); Reset(f);
Assign(g,'output.dat'); Rewrite(g);
while not f.Eof do begin
    for var i:=0 to 19 do Read(f,a[i]);
    a:=a[10:15]+a[0:5]+a[15:20]+a[5:10];
    for var i:=0 to 19 do Write(g,a[i])
    end;
f.Close;
g.Seek(0);
while not g.Eof do begin Read(g,t); Print(t) end;
g.Close
end.

MOGZ ответил