получить s=2+4+8+... суммировать до тех пор, пока сумма не превысит 10000. вывести на экран значение суммы, последнего слагаемого и номер последнего слагаемого.
ну пожалуйста, ПОМОГИТЕ!!!!
![!mol1.gif](http://forum.pascal.net.ru/style_emoticons/default/!mol1.gif)
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.
repeat
s := s + s + 2;
count := count + 1;
until s > 10000;
writeln('s = ', s, ' last = ', s div 2 + 1 , ' count = ', count);
writeln('s = ', s, ' last = ', s div 2 + 1 , ' count = ', trunc(ln(s div 2 + 1)/ln(2)) );