Program gt;
var i:integer;
begin
writeln('Заголовка');
i:=1;
while i<=15 do
begin
writeln(i*i*i);
i:=i+1;
end;
end.
Program BiFi;
Var a,d:real;
Begin
readln(a);
readln(d);
writeln('P=',2*(a+d));
readln;
end.
//PascalABC.NET
begin
seqgen(readinteger(), x -> (2 * x) / (2 * x + 1), 1).Product.Print;
end.
158 в десятичной системе счисления = 10011110 в двоичной системе счисления.
Количество значащих нулей = 3, так как они стоят после единицы!
На правой панели проводника может отображаться либо свойства выбранного файла, либо его предварительный просмотр, либо ничего