Program z1;
var s,a,b:real;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
s:=a*b;
writeln(s);
end.
По формуле N=2^i находим информационный вес одного символа (N=16=>i=4 бита)
количество символов - это общий вес, делённый на вес символа (I=ki=>k=I/i=4*2^13/4=2^13 символов)
Вторая задача решается так же
Const n=5; // обязательно должно быть нечетным
var
i,j,max,x,k:integer;
a:array[1..n,1..n]of integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,1];
for i:=1 to n do
begin
if a[i,i]>max then max:=a[i,i];
if a[i,n+1-i]>max then max:=a[i,n+1-i];
end;
k:=n div 2+1;
x:=a[k,k];
for i:=1 to n do
begin
if a[i,i]=max
then a[i,i]:=x;
if a[n+1-i,i]=max then a[n+1-i,i]:=x;
end;
a[k,k]:=max;
writeln('Измененный массив:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln
end
end.
Q1 = c1 *m*( t2- t1),
Q2 = c2 *m*,
Q3 = c3 *m*( t3- t2),
Q4 = c4 *m*.