Мой богатый дядюшка подарил мне один доллар на мой первый день рождения. в каждый следующий день рождения он удваивал свой прошлогодний подарок, прибавлял к нему столько долларов, сколько лет мне исполнялось, и полученную сумму дарил мне. напишите программу, подсчитывающую общую сумму всех денег, подаренных к -му дню рождения. формат входных данных на вход программе подается единственное число . это в паскале

Var   i,s,k,n: integer; begin   readln(n);   s: =0; k: =0;   for i: =1 to n do     begin     s: =2*s+i;     k: =k+s;     end;   write('дядюшка подарил ',k,' долларов.'); end.

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

Это выражение означает следующее: машина без человека - ничто. она не будет приносить абсолютно никакой пользы, если за ней не сидит тот или иной человек (работник за каким-нибудь станком, или дизайнер с программой по проектированию, к примеру). сам станок или одна только программа и компьютер не способны что-либо произвести: всю работу делает человек; машина является лишь средством облегчения и ускорения работ человека.