составить программу в паскале как изменяетс ястепень найти сумму 2^3 + 2^5 + ... + 2^9

Question

Информатика

Зарема

7 июня, 03:07

составить программу в паскале как изменяетс ястепень найти сумму 2^3 + 2^5 + ... + 2^9

+1

Ответы (1)

Знаете ответ?

Серафим · Answer 1

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;

var

a, sum, n:integer;

begin

n:=3;

repeat

sum:=sum+step (n) ;

n:=n+2;

until n>9;

write (sum) ;

end.