128(10) = 10000<span>000(2)
16(10) = </span>10000<span>(2)
32(10) = </span>10<span>0000(2)
14(10) = 1110(2)
в скобках указана система счисления</span>
1) a = 16; n = 10
идет простая математика, mod - деление с остатком
Это скрытое меню, которое появляется при нажатии правой кнопки мыши.
Program lyg;
var
all,last,seven: real;
ii,day: integer;
begin
last := 10;
all := 10;
day := 0;
for ii := 1 to 10 do
begin
last := last+(last*0.1);
all := all+last;
if ii=7 then
seven := all;
writeln('day ',ii,': ',round(last));
if day = 0 then
if all > 100 then
day := ii;
end;
writeln('Overall distance of 7 days: ',seven);
writeln('Distance 100km is reached at ',day,' day');
<span>end.</span>
