profile
Опубликовано 6 лет назад по предмету Информатика от maximym

Задачка в ABC pascal; очень срочно помогоите пож

Мой богатый дядюшка на первый день рождения подарил мне 1 доллар. В каждый след др он удваивал свой подарок и прибавлял столько долларов

сколько мне исполнялось лет. Найдите и выведите на экран какая сумма будет подарена на N-ый день рождения. Значение N вводится с клавиатуры.

 

 

 

прошу составить полную программу с начала и до конца!!!

  1. Ответ
    Ответ дан ДИАРМАЙД

    Program denuski;
    var
    a,N,c:integer;
    begin
    c:=1;
    Write('Введите номер дня рождения ');
    read(N);
    for a:=2 to N do
    c:=(c*2)+a;
    write('Cумма подаренная на ');
    write(N);
    write(' день рождения ');
    writeln(c,'$');
    end.

Самые новые вопросы