Var a,b:array[1..2,1..3]of integer;
i, j:byte;
Begin
for i:=1 to 2 do
for j:=1 to 3 do readln(a[i,j]);
for i:=1 to 2 do
begin
for j:=1 to 3 do write(a[i,j]:3);
writeln
end;
for i:=1 to 2 do
for j:=1 to 3 do
if i = 1 then b[i,j]:=a[2,j] else
b[i,j]:=a[1,j];
for i:=1 to 2 do
begin
for j:=1 to 3 do write (b[i,j]:3);
writeln
end;
readln
End.
write
Г) if x o then e: = 5 Я думаю что это так
Данное число может быть в системах счисления со следующими основаниями: 1, 2, 3 и 4.
Если утверждать что всегда применяется - то неверно вообще.
Но то что для кодирования больших и малых букв латинского алфавита 26*2 = 52 < 64 = 2^6 как видим достаточно 6 бит
Если же брать старые ASCII кодировки, то действительно использованый набор кодировался 7 битами, но вмещал не только латинский алфавит, но цифры, и другие символы
Var
n,m,k,i,l,max,min:longint;
begin
max:=-maxlongint;
min:=maxlongint;
readln(n);
for i:=1 to n do
begin
readln(n);
if n>max then max:=n;
if n<min then min:=n;
end;
writeln('Самый высокий ',max);
writeln('Самый низкий ',min);
end.