1/8кбайт=1024/8байт=1024*8/8бит=1024бит
I=k*i, где I - инфор. обьем, k - количество символов, i - мощность одного символа.
N=2^i, где N - кол-во символов в алфавите
I=1024бит
k=1024 символов
i=I/k=1024/1024=1
N=2^1=2
Ответ: 2 символа
Var
n, h, m, s: integer;
begin
read(n);
n := n mod (3600*24);
h := n div 3600;
m := n mod 3600 div 60;
s := n mod 60;
write(h div 10, h mod 10, ':', m div 10, m mod 10, ':', s div 10, s mod 10);
end.
Var a:array[1..10] of real; i,j,m:integer; n:real;
begin
n:=0;
m:=0;
for i:=1 to 10 do
begin
readln(a[i]);
n:=n+a[i];
end;
n:=n/10;
for j:=1 to 10 do
begin
if (a[j]>n) then m:=m+1;
end;
writeln(m);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (n,s,k):=(-8,0,0);
repeat
s+=n; k+=1;
n+=4
until n>4;
Writeln('Сумма=',s,', количество слагаемых ',k)
end.
<u>Результат</u>
Сумма=-8, количество слагаемых 4