Программа выполняется в паскале! составьте программу для решения следующей : дядюшка подарил своему племяннику на первый день рождения 1 доллар. в каждый следующий день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет исполнилось его племяннику. определите, к какому дню рождения сумма превысит 100 долларов? .

216

383

Посмотреть ответы 2

Ответы на вопрос:

draaams

Информатика

4,6(63 оценок)

Var money,n,count: integer; begin money: =1; n: =0; while money < 100 do begin money: = money*2+n; n: =n+1; count: =count+1; end; writeln(count); end.

Ннемо

Информатика

4,6(96 оценок)

Var rast,summa: real; k: integer; begin rast: =10; summa: =10; for k: =2 to 7 do begin rast: =rast+rast/10; summa: =summa+rast; end; writeln(summa); end.