простейший цикл, решение очень простое Опции

[Ksander]

Лягушонок растёт. Каждый день он съедает в 2 раза больше комаров, чем в предыдущий день. Сколько комаров съест лягушонок в n-ый день, если в первый день он проглотил 1 комара?

Введите номер дня: <номер дня n>
На <номер дня>день лягушонок съест <кол-во> комаров

[APAL]

Где то я это уже видел.... дежа-ву!

[FreeMan]

В школе: геометрическая прогрессия. Kol_vo=exp(ln(2)*kol_dney).

[trminator]

Тогда уж лучше так:
kol-vo := 1 shl kol_dney

[APAL]

И по старинке пойдет...

Код

Var N,i,k : Word;
     Summ : LongInt;
Begin
Write('Введите номер дня: '); Readln(N);
Summ:=0; k:=1;
For i:=1 to N do
Begin
Summ:=Summ+k;
k:=k*2;
End;
Writeln('На ',N, '-ый день лягушонок съест ',Summ,' комаров');
End.

[FreeMan]

Вот блин, прожорливая жаба. Лягушёнок ест меньше... <_<

[APAL]

http://pascal.net.ru/forum/index.php?showtopic=2529
напишите туда формул для прогрессий

[Ksander]

всем спасибо, скоро ещё парочку задач подкину

[BlackShadow]

trminator, ты наверно хотел сказать (1 Shl n) - 1...