def for10(n):
return sum([1/x for x in range(1, n+1])
def for11(n):
return sum([(n+x)**2 for x in range(0, n+1)])
<span>Var A,P:real;
N:integer;
Begin
P:=1;
Write('N = ');ReadLn(N);
WriteLn('Введи массив');
For N := 1 to N do
Begin
ReadLn(A);
if (N mod 2 = 0)and(A>0) then P:=P*A
End;
WriteLn(P)
End.</span>
var a:real;
begin
readln(a);
a:=a/60; writeln('a=',a,'мин');
a:=a/60; writeln('a=',a,'час');
readln;
end.
Program n1;
const nn=1000;
var x: array[1..nn] of integer;
m,i:integer;
begin
writeln('Введите размерность массива'); readln(m);
writeln('Введите массив');
for i:=1 to m do readln(x[i]);
for i:=1 to m do
if x[i]=0 then write(x[i],' ');
end.<span>
</span>
<span>в двоичном коду алфавит состоит из 2 чисел 0 1, всего 3 цифры, значит 3*1бит=3бита</span>