Задачка в ABC pascal; очень срочно помогоите пож Мой богатый дядюшка на первый день рождения подарил мне 1 доллар. В каждый след др он удваивал свой подарок и прибавлял столько долларов сколько мне исполнялось лет. Найдите и вы...
Задачка в ABC pascal; очень срочно помогоите пож Мой богатый дядюшка на первый день рождения подарил мне 1 доллар. В каждый след др он удваивал свой подарок и прибавлял столько долларов сколько мне исполнялось лет. Найдите и выведите на экран какая сумма будет подарена на N-ый день рождения. Значение N вводится с клавиатуры. прошу составить полную программу с начала и до конца!!!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы