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

Question

Информатика

Фрол

28 ноября, 20:14

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

+1

Ответы (1)

Знаете ответ?

Алеша · 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

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

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