Лягушонок растёт. Каждый день он съедает в 2 раза больше комаров, чем в предыдущий день. Сколько комаров съест лягушонок в n-ый день, если в первый день он проглотил 1 комара?
Введите номер дня: <номер дня n>
На <номер дня>день лягушонок съест <кол-во> комаров
Где то я это уже видел.... дежа-ву!
В школе: геометрическая прогрессия. Kol_vo=exp(ln(2)*kol_dney).
trminator
5.08.2004 15:42
Тогда уж лучше так:
kol-vo := 1 shl kol_dney
И по старинке пойдет...
Код
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.
Вот блин, прожорливая жаба. Лягушёнок ест меньше... <_<
всем спасибо, скоро ещё парочку задач подкину
BlackShadow
5.08.2004 16:15
trminator, ты наверно хотел сказать (1 Shl n) - 1...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста,
нажмите сюда.