Program n1;
var a: array[1..10] of integer;
k,kol,i: integer;
begin
randomize;
write('k=');
readln(k);
kol:=0;
write('исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if (a[i]<0) and (a[i]<k) then kol:=kol+1;
end;
writeln;
writeln('кол-во эл меньше ',k,': ',kol);
end.
Var x,y,i,min,max1,max2:integer;
begin
writeln('пожалуйста, введите поочередно 3 числа');
readln(x);readln(y);readln(i);
if (x<y) and (x<i) then begin min:=x; max1:=y; max2:=i; end;
if (i<y) and (i<x) then begin min:=i; max1:=y; max2:=x; end;
if (y<x) and (y<i) then begin min:=y; max1:=x; max2:=i; end;
writeln('минимальное число =',min);
writeln('произведение 2-х максимальных =',max1*max2);
end.
Пример работы:
пожалуйста, введите поочередно 3 числа641281минимальное число =1произведение 2-х максимальных =8192
Ответ:
Дано:
K=100;
N1=8;
N2=64;
Найти: I(общ.).
Решение:
I=K*i;
N=2^i => i1=3; i2=6;
I1=100*3=300(бит); I2=100*6=600(бит);
I(общ.)=600+300=900(бит)=112,5(байт).
Ответ: 112,5 байт.
Объяснение:
И как ответить на это всё ?