Много ! паскаль! заданы два одномерных массива размера n.объединить их в один массив,включив первую половину второго массива перед первым массивом,а вторую половину-за первым.
Ответы на вопрос:
const n=10;
var a,b: array[1..n] of integer;
c: array[1..2*n] of integer;
i,n2: integer;
begin
randomize;
writeln('a: ');
for i: =1 to n do begin
a[i]: =random(21);
write(a[i]: 3);
end;
writeln;
writeln('b: ');
for i: =1 to n do begin
b[i]: =random(21);
write(b[i]: 3);
end;
writeln;
n2: =n div 2;
for i: =1 to n2 do c[i]: =b[i];
for i: =1 to n do c[i+n2]: =a[i];
for i: =n2+1 to n do c[n+i]: =b[i];
writeln('c: ');
for i: =1 to 2*n do write(c[i]: 3);
end.
пример:
a:
3 12 10 16 13 12 9 18 2 0
b:
6 1 12 6 2 14 8 10 20 11
c:
6 1 12 6 2 3 12 10 16 13 12 9 18 2 0 14 8 10 20 11
296
Объяснение:
Считаем количество символов в сообщении включая пробелы, умножаем их на 8 т.к они кодируются в байтах, а ответ нужен в битах(Знаем что 8бит - 1байт)
Популярно: Информатика
-
Ekirakosyan1214.02.2023 05:31
-
alexnatur21.06.2023 21:19
-
olgayabs76oxczon31.03.2021 04:01
-
pisturin04.09.2022 20:38
-
BlackZhopa22.06.2022 05:19
-
kiraueus12.05.2020 12:45
-
supervalad01.04.2023 20:54
-
ariana7621.10.2020 00:26
-
Russia56902.06.2021 11:07
-
biktimirovandre21.11.2022 14:47