Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.03.2012, 17:48   #1
Фяниль
 
Регистрация: 26.03.2012
Сообщений: 7
Радость Паскаль)

на каждом следующем дне рождении Винни-Пух сьедает столько же пищи, сколько на двух предыдущих.на двух первых днях рождения у Пятачка и Кролика он сьел по 100 грамм пищи.написать программу, определяющая на каком лне рождения вес сьеденной пищи превысит собственыый вес!
Фяниль вне форума Ответить с цитированием
Старый 26.03.2012, 18:04   #2
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

числа фибоначи вам в помощь
Код:
readln(n);
next := 100;
last := 100;
index := 2;
while (next < n) do
begin
next := next + last;
last := next - last;
inc(index);
end;
writeln('на ', index,' дне рождения');
не компилил... но должно работать....
n - масса которую нужно превысить...
пишу код не только за печеньки
VIK_aka_TOR вне форума Ответить с цитированием
Старый 26.03.2012, 18:11   #3
Фяниль
 
Регистрация: 26.03.2012
Сообщений: 7
По умолчанию

напиши прям полностью пожалуйста)
Фяниль вне форума Ответить с цитированием
Старый 26.03.2012, 18:14   #4
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

наглости людей нет границ...
Код:
var
last, n, next, index:integer;
begin
...
end.
вместо точек вставишь текст с предыдущего поста...
пишу код не только за печеньки
VIK_aka_TOR вне форума Ответить с цитированием
Старый 26.03.2012, 18:15   #5
weech
Пользователь
 
Аватар для weech
 
Регистрация: 16.11.2011
Сообщений: 91
По умолчанию

Цитата:
Сообщение от Фяниль Посмотреть сообщение
напиши прям полностью пожалуйста)
Спереди допишите *begin*, а в конце *end.*...
weech вне форума Ответить с цитированием
Старый 26.03.2012, 18:16   #6
Фяниль
 
Регистрация: 26.03.2012
Сообщений: 7
По умолчанию

спасибо)))
Фяниль вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
паскаль и турбо паскаль Евгения Игоревна Помощь студентам 6 05.05.2011 14:31
Паскаль Fitzgerald23 Помощь студентам 3 26.06.2010 00:37