Var
i,min:integer;
m:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(m[i]);
if i=1 then min:=m[i];
if m[i]<min then min:=m[i];
end;
for i:=1 to 10 do
begin
if m[i]=0 then m[i]:=min;
write(m[i],' ');
end;
<span>end.</span>
Var x,y,U, S:integer;
begin
readln (x,y);
S:=x+y;
if (S>100) then U:=S/2;
if (S<100) then U:=S; (зависит от условия. по-моему, в задании неправильно поставлено второе условие.)*
writeln (U);
end.
*если в условии написано
"в противном случае умножить на два, то
if (S<100) then U:=S*2;
а если оставить число неизменным, то
if (S<100) then U:=S;
Формула объема информации
т.е. нам неизвестно количество символов в алфавите, а значит мы не можем найти информационный вес одного символа. Можно заменить на мощность российского алфавита, только возьмем не 33 буквы, а 32, т.е. 32 это 2 в 5 степени. Вес одного символа = 5 бит. Тогда объем информации в книге =
бит. При переводе в байты=
байт
Алфавит восьмеричной системы счисления: 0,1, 2, 3, 4, 5, 6, 7
Наибольшей цифрой будет 7.
Можно провести аналогию с десятичной системой счисления.
9+1=10, аналогично и в восьмеричной: 7+1=10. Значит 9 - наибольшая цифра десятичной системы счисления, а 7 - наибольшей цифра восьмеричной.