Бит - он бинарен, он может принимает 2 значения.
Var a,b,c,sum:integer;
begin
readln(a,b);
sum:=0; inc(a); c:=0;
repeat
sum:=sum+b;
inc(c);
until c=a;
sum:=sum-b;
writeln(sum);
end.
Переведем сначала в десятичную:
6^0*5+6^1*2+6^2*3=5+12+108=125
Теперь в пятеричную:
125/5=25(остаток 0)
25/5=5(остаток 0)
Итак получаем:
500.
Проверяем:
5^0*0+5^1*0+5^2*5=125
Var i:integer; n,k:real;
begin
n:=10;k:=10;
for i:=1 to 6 do
begin
n:=1.1*n;
k:=k+n;
end;
writeln(k:5:2);
end.
512=2^i
i=9 бит
v=k*i=400*9=3600 бит/8=450 байт/1024=0,43 Кб