Задачка в ABC pascal; очень срочно помогоите пож Мой богатый дядюшка на первый день рождения подарил мне 1 доллар. В каждый след др он удваивал
1-4 класс
|
свой подарок и прибавлял столько долларов
сколько мне исполнялось лет. Найдите и выведите на экран какая сумма будет подарена на 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.
Другие вопросы из категории
логотипом американской корпорации, производителя персональных и
планшетных компьютеров, аудиоплееров, телефонов, програмного
обеспечения?
Читайте также
своим индексам, увеличенным на один. Значение a описать в разделе констант. Выведите массив в строчку.
своим индексам, увеличенным на один. Значение a описать в разделе констант. Выведите массив в строчку.
Состав и запиши построчно алгоритм ,,Набери грибов''
Оч срочно!
Нужно по заданым точкам фигуру нарисовать по координатам (5 класс) поищите плиз в тетрадках может вот надо прям очень срочно (2;-1), (3,5;0,5), (4;-1), (5;0), (4;2), (2;1), (2;3), (4;5), (4;6), (2;5), (1;7), (1;8), (0;7), (0;9), (-1;7), (-2;8),(-2;7), (-3;7), (-2;6), (-4;6), (-3;5), (-4;5), (-3;4), (-5;4), (-4;3), (-5;3), (-4;2), (-6;2), (-5;1), (-6;1), (-5;0),(-6;0), (-5;-1), (-6;-2), (-4;-2), (-5;-3), (-3;-4), (-4;-5), (-2;-5), (-1;-6), (3;-6), (3;-5), (1;-5), (1;-4), (2;-3), (2;-1)