Var s, n : longint;
begin
s := -1; n := 3;
while 6*s*s*s*s*s > 800*s*s*s do begin
s := s - 2;
n := n * 2
end;
write(n - s)
end.
begin
s := -1; n := 3;
while 6*s*s*s*s*s > 800*s*s*s do begin
s := s - 2;
n := n * 2
end;
write(n - s)
end.
More Questions From This User See All