Задание:
Составить программу в паскале как изменяетс ястепень найти сумму 2^3+2^5+… +2^9
Решение:
uses crt; function step (n: integer): integer; var p: integer; begin p: =2; repeat p: =p*2; n: =n-1; until n=1; step: =p; end; vara,sum,n: integer; beginn: =3; repeatsum: =sum+step (n); n: =n+2; until n>9; write (sum); end.
Знаете другой ответ?