Написать программку, которая по данным вышине прямоугольника и порядке прочтения строк
Написать программку, которая по заданным вышине прямоугольника и порядке чтения строк при шифровке декодирует заданное сообщение.
Для кодировки извещенья употребляют последующие действия: известие записывают, опуская пробелы, в прямоугольник данной высоты по столбцам, а потом прочитывают строчки в данном порядке
1 ответ
Илья Громоздов
var
nbsp;nbsp;n, i, j, k1, k2, kk : integer;
nbsp;nbsp;a : array [1..10] of integer;
nbsp;nbsp;s : string;
nbsp;nbsp;t : array [1..10] of string;
begin
nbsp;nbsp;assign(input,input.txt); reset(input);
nbsp;nbsp;assign(output,output.txt); rewrite(output);
nbsp;nbsp;readln(n);
nbsp;nbsp;for i:=1 to n do read(a[i]);readln;
nbsp;nbsp;readln(s);
nbsp;nbsp;k1:=length(s) div n;
nbsp;nbsp;k2:=length(s)-k1*n;
nbsp;nbsp;for i:=1 to n do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;if a[i]gt;k2 then kk:=k1 else kk:=k1+1;
nbsp;nbsp;nbsp;nbsp;t[a[i]]:=copy(s,1,kk);
nbsp;nbsp;nbsp;nbsp;delete(s,1,kk)
nbsp;nbsp;end;
nbsp;nbsp;for i:=1 to k1 do for j:=1 to n do s:=s+t[j][i];
nbsp;nbsp;for j:=1 to k2 do s:=s+t[j][k1+1];
nbsp;nbsp;writeln(s)
end.
nbsp;nbsp;n, i, j, k1, k2, kk : integer;
nbsp;nbsp;a : array [1..10] of integer;
nbsp;nbsp;s : string;
nbsp;nbsp;t : array [1..10] of string;
begin
nbsp;nbsp;assign(input,input.txt); reset(input);
nbsp;nbsp;assign(output,output.txt); rewrite(output);
nbsp;nbsp;readln(n);
nbsp;nbsp;for i:=1 to n do read(a[i]);readln;
nbsp;nbsp;readln(s);
nbsp;nbsp;k1:=length(s) div n;
nbsp;nbsp;k2:=length(s)-k1*n;
nbsp;nbsp;for i:=1 to n do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;if a[i]gt;k2 then kk:=k1 else kk:=k1+1;
nbsp;nbsp;nbsp;nbsp;t[a[i]]:=copy(s,1,kk);
nbsp;nbsp;nbsp;nbsp;delete(s,1,kk)
nbsp;nbsp;end;
nbsp;nbsp;for i:=1 to k1 do for j:=1 to n do s:=s+t[j][i];
nbsp;nbsp;for j:=1 to k2 do s:=s+t[j][k1+1];
nbsp;nbsp;writeln(s)
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов