Собранные деньги

@nikolay61 · Регистрация: 23.09.2013

Студворк — интернет-сервис помощи студентам

Папа Карло подарил Буратино 1 золотой Цехин на его первый день рождения, а экономный Буратино положил подарок в банке. Каждый следующий год папа Карло удваивал свой предыдущий подарок и прибавлял к нему столько цехинов, сколько лет исполнилось Буратино, а тот, в свою очередь продолжал составлять золотые в банке. На какой N-й день рождения в банке будет не менее S цехинов?
Объяснение: на первый день рождения Буратино подарили один золотой, на второй 2 * 1 + 2 = 4, их стало 5, а на третий 2 * 4 + 3 = 11, и их стало 16> 15.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program cehiny;
 
uses crt;
var s:real;
n,k,r,i:byte;
BEGIN
write('ввести год рождения n=>');
readln(n);
s:=0;
for i:=1 to n do
begin
k:=n*2;
r:=k+2;  
 s:=k+r;
 s:=s+1;
 end;
 writeln(s:5:0);
 readln
 
END.

второй и третий день получаются, а вот с первым днем проблема

@кот Бегемот · 12.12.2014, 20:10

Сообщение от nikolay61

program cehiny;
uses crt;
var s:real;
n,k,r,i:byte;
BEGIN
write('ввести год рождения n=>');
readln(n);
s:=0;
for i:=1 to n do
begin
k:=n*2;
r:=k+2;
s:=k+r;
s:=s+1;
end;
writeln(s:5:0);
readln
END.

У тебя вообще не та программа. Вводятся N и S. Сумма сравнивается с S. Где всё это?

@nikolay61 · 12.12.2014, 21:36 **[ТС]**

все равно не понял. Если не трудно-помоги

Добавлено через 39 минут
т.е. должен быть цикл?

@vint-81 · 13.12.2014, 12:27

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program cehiny;
uses crt;
var s,k,i,sum:integer;
BEGIN
    write('введите количество цехинов ');
    readln(s);
    k:=1;i:=1;sum:=k;
    while sum<s do
     begin
      inc(i);
      k:=k*2+i;
      sum:=sum+k;
     end;
    writeln('не менее ',s,' цехинов в банке станет на ',i,' день рождения');
    readln
END.

@nikolay61 · 14.12.2014, 19:39 **[ТС]**

_!_

Добавлено через 9 минут
Да в том то и прикол, просят чтобы был введен день рождения, а программа обсчитала эти цехини. Возможен ли такой вариант или это нам вешают лапши?

@кот Бегемот · 14.12.2014, 23:43

Сообщение от nikolay61

Да в том то и прикол, просят чтобы был введен день рождения, а программа обсчитала эти цехини. Возможен ли такой вариант или это нам вешают лапши?

это имеет смысл только в том случае, если вводится не только день рождения, но и год, а проверяется на момент сегодняшнего дня.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@nikolay61 0 / 0 / 0 Регистрация: 23.09.2013 Сообщений: 27
	12.12.2014, 21:36 [ТС]
	все равно не понял. Если не трудно-помоги Добавлено через 39 минут т.е. должен быть цикл? 0

@nikolay61 0 / 0 / 0 Регистрация: 23.09.2013 Сообщений: 27
	14.12.2014, 19:39 [ТС]
	_!_ Добавлено через 9 минут Да в том то и прикол, просят чтобы был введен день рождения, а программа обсчитала эти цехини. Возможен ли такой вариант или это нам вешают лапши? 0

Собранные деньги

Решение