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

[inomarka]

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

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

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

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

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