Napisz algorytm obliczania sumy n kolejnych liczb takich że każda następna jest od poprzedniej 2 razy większa.
kod w pascalu:
m - pierwsza liczba od której zaczynamy
program suma;
var n, i, m, s: integer;
begin
------read (n);
------read(m);
------for i = 1 to n do
------begin
------------s := s + m;
------------m := 2*m;
------end;
------write(s);
end;
oczywiście znaki "------" nie należą do kodu tylko poprawiają czytelność
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
kod w pascalu:
m - pierwsza liczba od której zaczynamy
program suma;
var n, i, m, s: integer;
begin
------read (n);
------read(m);
------for i = 1 to n do
------begin
------------s := s + m;
------------m := 2*m;
------end;
------write(s);
end;
oczywiście znaki "------" nie należą do kodu tylko poprawiają czytelność