Цитата:
Сообщение от Radist61
Вот в этой задачи я не совсем верно сказал что нужно найти=(((
Программа должна считать всю сумму бактерий(т.е. Если мы вводим время 5мин то программа должна считать 1+4+8+16+32 )и выводить на экран общую сумму,как это добавить??
|
Пожалуйста, только, честно говоря, я этого не понимаю. Ведь после деления бактерия-прародительница перестает существовать! Зачем же суммировать? И потом - за 5 минут должно быть 1+2+4+8+16+32, а у Вас почему-то 2 выпало... Ну ладно, как знаете:
Код:
VAR
i:INTEGER;
n,a:WORD;
SUM:LongInt;
BEGIN
Write('n= ');
ReadLn(n);
SUM:=1;
a:=1;
For i:=1 to n do
begin
a:=a*2;
SUM:=SUM+a;
end;
WriteLn('SUM= ',SUM);
ReadLn;
END.