200 * 3 = 600 бит
<span>600 / 8 = 75 байт.</span>
1.Мощность - 52, значит 5 символв для кодирования 1 символа не хватит, т.к 2^5<52, а вот 2^6=64>52, значчит нам как раз подходит (то что больше это не важно главное чтоб хватало, и меньше не было) значит 1 сивол занимает 6 бит информации, значит 3000 сиволов занимают 3000*6 бит информации, = 18000 бит /8 = 2 250 байт. это чуть больше 2 Кбайт.
2. 256 = 2^8, значит 1 символ содержит 8 бит информации. 1 Мбайт = 2^23 бит, значит 2^23/2^5=2^17 бит. Значит символов у нас 2^17/2^3= 2^14, это 16 384 символа.
ПРости забыл обозначения) поэтому только так
Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.
Const
nn=50; { максимально возможное кол-во строк }
mm=50; { максимально возможное кол-во столбцов }
var
a:array[1..nn,1..mm] of integer;
i,j,m,n,imax,t:integer;
begin
Write('Количество строк в массиве: '); Read(n);
Write('Количество столбцов в массиве: '); Read(m);
Writeln('Вводите элементы массива');
for i:=1 to n do
for j:=1 to m do Read(a[i,j]);
for j:=1 to m do begin
imax:=1;
for i:=2 to n do
if a[i,j]>a[imax,j] then imax:=i;
if i<>1 then begin
t:=a[1,j]; a[1,j]:=a[imax,j]; a[imax,j]:=t
end
end;
Writeln('Результат');
for i:=1 to n do begin
for j:=1 to m do Write(a[i,j]:3);
Writeln
end
end.