Составить программу: Р=1*4*8*16....1024.

Question

Составить программу: Р=1*4*8*16....1024.

Comments

Там не пропущено 2? Может все же 1*2*4*8*16*... ?

---

Ну, как знаете...

Answer 1

Var
  i,n,t:integer;
  p:real;
 
begin
  p:=1; t:=2;
  for i:=1 to 9 do begin
    t:=2*t;
    p:=p*t
    end;
  Writeln(p);
end.

Результат
1.8014398509482E+16