Объяснение:
i = log2(64) = 6 бит
3 Кбайт = 3072 байт = 24576 бит
<u>2</u><u>4</u><u>5</u><u>7</u><u>6</u><u> </u><u>÷</u><u> </u><u>6</u><u> </u><u>=</u><u> </u><u>4</u><u>0</u><u>9</u><u>6</u><u> </u><u>символов</u>
var a:array[1..10] of integer;
i,k,s:integer;
begin
s:=0;
k:=0;
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
if a[i]>0 then begin
s:=s+a[i];
k:=k+1;
end;
writeln(s/k);
end.
<span>program zadacha;
var
a, b, c, s: real;
begin
writeln('Введите три числа: ');
readln(a, b, c);
if a < b then
if b < c then s := b
else
if a < c then s := c
else s := a
else
if b > c then s := b
else
if a > c then s := c
else s := a;
writeln('Среднее по значению: ', s);
end.</span>
//Общее сопротивление сети:
// 1/R = 1/r1 + 1/r2
// 1/R = (r2+r1)/(r2*r1)
// R = r2*r1 / (r2 + r1)
//Закон Ома для участка цепи:
// I = U/R
var
r1,r2,u : integer;
R,I : real;
begin
writeln ('Введите значения сопротивления (r1 r2)');
readln (r1,r2);
writeln ('Укажите напряжение на концах цепи (u)');
readln (u);
R := r2*r1 / (r2 + r1);
I := U/R;
//Фактически можно не использовать переменную R
//А вставить выражение сразу
// I := U/( r2*r1 / (r2 + r1) );
writeln ('Сила тока на участке = ',I);<span>
end.</span>