Задание:
Задачка в ABC pascal; очень срочно помогоите пож Мой богатый дядюшка на первый день рождения подарил мне 1 доллар. В каждый след др он удваивалсвой подарок и прибавлял столько долларов
Решение:
Program denuski; var a,N,c: integer; beginc: =1; Write ('Введите номер дня рождения '); read (N); for a: =2 to N doc: =(c*2)+a; write ('Cумма подаренная на '); write (N); write (' день рождения '); writeln (c,'$'); end.
Знаете другой ответ?