Задачка в ABC...

Тема в разделе "Информатика", создана пользователем NЕRTI, 30 янв 2010.

  1. NЕRTI

    NЕRTI New Member

    Задачка в ABC pascal; очень срочно помогоите пож Мой богатый дядюшка на первый день рождения подарил мне 1 доллар. В каждый след др он удваивалсвой подарок и прибавлял столько долларов
     
    NЕRTI, 30 янв 2010
    #1
  2. OrdinatoR

    OrdinatoR New Member

    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.
     
    OrdinatoR, 30 янв 2010
    #2

Поделиться этой страницей

Наша группа