Просто пишешь 4 круга с пересечениями и в пересечениях пишешь то что повторяеться
Ответ:
48 байт или 384 бита
Объяснение:
Чаще всего в задачах при кодировке юникод, подразумевают двухбайтовую кодировку, т.е. 1 символ 2 байта
Слово из 24 символов, соответственно, 2×24=48 байт
Дабы записать все в битах, надо умножить все на 8(1 байт =8 бит)
48*8=384 бит
Var
A: array [1..4, 1..5] of real;
i, j, z: byte;
begin
randomize;
z := 0;
for i := 1 to 4 do
begin
for j := 1 to 5 do
begin
A[i, j] := random*2-1;
write(A[i, j]:6:2, ' ');
if A[i, j] > 0 then z := z + 1;
end;
writeln;
end;
writeln('Количество нечетных элементов = ', z);
end.
1)program gt;
var a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
n,m,s,i,j:integer;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
b[j]:=s;
end;
for i:=1 to m do
write(b[i],' ');
end.
2)
program gt;
var a:array[1..100,1..100]of integer;
n,m,s,i,j:integer;
begin
readln(n,m);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
if(i mod 2=0)then a[i,j]:=0 else a[i,j]:=random(100);
write(a[i,j],' ');
writeln;
end;
end.
В счетчиках можно вместо 5 указать константу n и где вывод проверку если равен n запятую не печатаем