Программа на Python В первый день рождения Буратино подарили 1 доллар. В каждый следующий день рождения сумму удваивали. Сколько денег подарили Буратино к n-му дню рождения, и какая сумма у него накопилась?

5

В первый день рождения получил 1 $

День 2 получил 1.50 $

День 3 получил 2.25 $

День 4 получил 3.38 $

День 5 получил 5.06 $

За 5 лет накопил 13.19 $​

Ну, в общем, лови решение.

{ FreePascal 2.6.4}
program test;
uses
    crt;
var
    a, b, c, d  : integer;
    f : longint;

procedure swap (var x : integer; var y : integer);
var z : integer;
begin
    z := x;
    x := y;
    y := z;
end;

function nod (m, n : integer) : integer;
begin
    while m<>n do begin
        if m>n
        then
            m:=m-n
        else
            n:=n-m;
    end;
    nod := m;
end;

function max (a,b : integer) : integer;
begin
    if a>b
    then max := a
    else max := b;
end;

function min (x, y, z : integer) : integer;
var m : integer;
begin
    m := x;
    if y<m then m := y;
    if z<m then m := z;
    min := m;
end;

function mypow (a, b : integer) : integer;
var e, f : integer;
begin
    f := 1;
    for e:=1 to b do f := f*a;
    mypow := f;
end;

function fact(a : integer) : longint;
var
    i : integer;
    res : longint;
begin
    res := 1;
    for i := 1 to a do res := res*i;
    fact := res;
end;

begin
    clrscr;
    writeln('Test of function SWAP');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    swap(a, b);
    writeln('A=', a, ', B=', b);
    writeln;

    writeln('Test of function NOD');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := nod(a, b);
    writeln('NOD(', a, ',', b, ')=', c);
    writeln;

    writeln('Test of function MAX');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := max(a, b);
    writeln('MAX(', a, ',', b, ')=', c);
    writeln;

    writeln('Test of function MIN');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    write('Input C: ');
    readln(c);
    d := min(a, b, c);
    writeln('MIN(', a, ',', b, ',', c, ')=', d);
    writeln;

    writeln('Test of function POW');
    write('Input A: ');
    readln(a);
    write('Input B: ');
    readln(b);
    c := mypow(a, b);
    writeln('POW(', a, ',', b, ')=', c);
    writeln;

    writeln ('Test of function FACT (not large than 12!)');
    write('Input A: ');
    readln(a);
    f := fact(a);
    writeln(a, '!=', f);
    writeln;
    readkey;

end.

что нельзя:

1)В интернете нельзя лазять по разным не проверенным сайтам

2)Нельзя скачивать какие либо вещи с не проверенных сайтов

3)Нельзя делится местоположением своего дома и когда Вы куда либо уезжаете

4)Нельзя использовать простые пароли которые можно угадать

5)Нельзя использовать одни и те же пароли

6)Нельзя кликать по ссылкам на письмах от людей которых вы не знаете, и на непроверенных сайтов

7)Не используйте не безопасное соединение VPN

8)Не совершайте покупки на непроверенных сайтов

9)Не переписывайтесь с подозрительными незнакомцами

10)Не скачивайте ничего без антивируса

Объяснение:

что можно:

1)Можно сидеть на проверенных сайтах

2)Можно скачивать разные вещи с проверенных сайтов

3)Можно переписываться с людьми которые проверенные и точно никак не плохие

4) Можно использовать безопасное соединение VPN

5)Можно совершать покупки на проверенных сайтах

6)Ставить разные пароли на разные соцсети

7)Ставить не свою дату рождения, не свое имя не свое фото на аватарку

8)Можно переходить по ссылкам в письмах от знакомых вам людей

9)скачать антивирус

10) обмен чем либо с проверенными людьми

надеюсь ❤️