Napisz program w Pascalu, który obliczy sumę 10 poczatkowych wyrazów ciągu geometrycznego, w którym każdy następny wyraz jest dwa razy wiekszy od poprzedniego, przy czym pierwszy wyraz tego ciągu jest podawany przez użytkownika.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
program suma
var x, s:integer; i:byte;
begin
s:=0;
writeln('podaj x');
readln(x);
for i:=1 to 10 do
begin
s:=s+x;
x:=x*2;
end;
writeln('szukana suma wynosi ', s);
end.