Один богатый дядюшка подарил племяннику 1 доллар в его первый день рождения. В каждый следующий день рождения он удваивал подарок и прибавлял к нему столько долларов, сколько лет исполнялось мальчику. Сосчитать, сколько подаренных денег накопиться к 18-летию мальчика

Question

Тина

28 октября, 10:07

+3

Ответы (1)

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

Конрад · Answer 1

Var i, p, s:integer;

begin

p:=1; s:=1;

for i:=2 to 18 do

begin

p:=p*2;

s:=s+p+i;

end;

writeln ('s = ', s);

end.

Результат:

s = 262313