Question

In Turbo Pascal cu instructiunea for
O broscuță face în fiecare minut câte un salt. Lungimea primului salt este p, (valoare citită de la tastatură).,după care, fiecare salt făcut are lungimea dublă față de lungimea saltului anterior făcut. Scrieți un
algoritm care afișează distanța totală parcursă de broscuță în cinci salturi (n citit, de asemenea, de la
tastatură)

Answer 1

o solutie

program broscuta;
var i,p,pas,n:longint;
var total:longint;
begin
total:=0;
write('valoarea lui p=');
readln(p);
write('valoarea lui n=');
readln(n);
for pas:=1 to n do
begin
if pas=1 then
total:=p
else
total:=total * 2;
end;
write('total=');
writeln(total);
end.