Если время дано с точностью до минуты, то
INPUT "N="; N
FOR I = 1 TO N
S = S + 1 / (2 * I - 1)
NEXT I
<span>PRINT "S="; S</span>
Var n,k,m: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> k:=n; m:=1;
</span><span> while k>0 do
</span><span> begin
</span><span> k:=k div 10;
</span><span> m:=m*10;
</span><span> end;
</span><span> k:=2*m*10+n*10+2;
</span><span> writeln(k);
</span><span>end.
</span>n = 78954
<span>2789542
</span>
<span>
</span>
Graph-Примитивы, перья и кисти, шрифты, графич.окно, события мыши и клаиатуры
objects-создание объектов, управление свойствами объектов
В восьмиричной: 150.32
В шестнадцатиричной: 68.88