помогите найти хотя бы похожие задачи на сумму рядов. Опции

[inomarka]

я искала у вас в поисковике и в faq, но там не было ничего подходящего. были задачи на сумму рядов, но другого рода. плиз, дайте ссылку на ПОХОЖУЮ задачу или помогите решить эту!

получить s=2+4+8+... суммировать до тех пор, пока сумма не превысит 10000. вывести на экран значение суммы, последнего слагаемого и номер последнего слагаемого.
ну пожалуйста, ПОМОГИТЕ!!!!

[klem4]

var
  s, t, count: Integer;

begin
  s := 0;
  t := 2;

  repeat
    s := s + t;
    t := t * 2;
    count := count + 1;
  until s > 10000;

  writeln('s = ', s, ' last = ', t div 2 , ' count = ', count);
end.

[мисс_граффити]

решение "в лоб". зато работает.
при желании можно красивее.

program inomarka;
var s,i,kol:integer;
begin
i:=1;
s:=0;
kol:=0;
while s<10000 do
  begin
  i:=i shl 1;
  inc(s,i);
  inc(kol);
  end;
writeln(s);
writeln(i);
writeln(kol);
readln;
end.

опять опоздала.

Сообщение отредактировано: мисс_граффити - 4.12.2006 22:11

[klem4]

Экхм я тут пораскинул немножко )

  repeat
    s := s + s + 2;
    count := count + 1;
  until s > 10000;

  writeln('s = ', s, ' last = ', s div 2 + 1 , ' count = ', count);

Осталось только с count-ом побороться

[volvo]

А чего с ним бороться? Геометрическая прогрессия

writeln('s = ', s, ' last = ', s div 2 + 1 , ' count = ', trunc(ln(s div 2 + 1)/ln(2)) );