Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 29.03.2012
Сообщений: 8

Цикл: Сколько у меня будет долларов в подарок от богатого дядюшки на n ДР?

17.04.2012, 06:03. Показов 904. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста.

Богатый дядюшка подарил мне на первый ДР доллар, а на последующие дарил столько, сколько мне исполнялось, при этом удваивал полученную сумму, сколько у меня будет на n ДР?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program z1;
uses crt;
var s,i,n,a: integer;
begin
write('Kolichestvo let: ');
read(n);
for i:=0 to n do begin
s:=s+1;
a:=n*2+n;
end;
writeln(a);
readln(n) ;
end.
Вот набросал код. что не верно?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.04.2012, 06:03
Ответы с готовыми решениями:

Сколько существует способов разменять N долларов купюрами по 1, 5 и 10 долларов?
Дано натуральное число N. Сколько существует способов разменять N долларов купюрами по 1, 5 и 10 долларов?

Цикл: Определить, сколько простейших организмов будет через каждый период их деления. Цикл while.
Напишите пожалуйста код к этой задачке, неделю уже ломаю себе голову как ее решить. Одноклеточная амеба каждые 3 часа делится на 2...

Цикл. Если каждый день класть в банк по 1 доллару под 50 % годовых, через сколько лет эта сумма составит 1 миллион долларов?
программа которая поможет посчитать нижеуказанную задачку Если каждый день класть в банк по 1 доллару под 50 % годовых, через сколько лет...

1
 Аватар для alexbec-2011
22 / 22 / 14
Регистрация: 01.12.2011
Сообщений: 159
17.04.2012, 06:45
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var s,i,n,a: integer;
begin
  write('n=');
  read(n);
  a:=1;
  for i:=2 to n do
    a:=i*2+a;
  write(a);
end.
Добавлено через 4 минуты
Цитата Сообщение от san933 Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program z1;
uses crt;
var s,i,n,a: integer;
begin
write('Kolichestvo let: ');
read(n);
for i:=0 to n do begin
s:=s+1;
a:=n*2+n;
end;
writeln(a);
readln(n) ;
end.
я не понял в коде зачем тут присутствует s?
почему умножаем на n? n это сколько лет!
и убило зачем плюсовать n?
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
17.04.2012, 06:45
Помогаю со студенческими работами здесь

Какой будет сторона квадратной коробки, куда можно будет упаковать один подарок?
Помогите с задачей. Паскаль Наталья очень увлекается цветоводством. Особенно разведением комнатных растений. Скоро рождественские...

Сколько раз будет выполняться цикл в примере?
Как будет выполняться цикл, если выражение, записанное в операторе WHILE, окажется ложным с самого начала? 2. Почему необходимо...

Как определить сколько раз будет проходить цикл?
Я только начинаю изучать C# помогите обяснить как определить сколько раз будет проходить цикл и как это определить. int p = 2; ...

Цикл: Определить, сколько амеб будет спустя N часов после начала деления.
Циклы: 1. Одноклеточная амеба делится каждые три часа. Определить, сколько амеб будет спустя N часов после начала деления. подскажите...

Цикл FOR: Напечатать таблицу перевода долларов США в рубли
Напечатать таблицу перевода 1, 2, ..., 20 долларов США в рубли по текущему курсу (значение курса вводится с клавиатуры).


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru