Пятничные несложные задачки.

← →
SergP © (2004-06-05 22:53) [80]

> [77] default © (05.06.04 22:38)

За 21 год жизни високосных годов может быть от 4 до 6

← →
default © (2004-06-05 22:53) [81]

тогда вот так будет
procedure TForm1.Button1Click(Sender: TObject);
var
n, i: Byte;
d1: Word;
begin
for i := 0 to 1 do
for n := 0 to 4 do
for d1 := 1 to 2561 do
if RecurLaw(d1, n) = 21*365 - i then
Memo1.Lines.Add("d1=" + IntToStr(d1) + ";n=" + IntToStr(n));
end;
и опять ничего

← →
default © (2004-06-05 22:57) [82]

SergP © (05.06.04 22:51) [79]
"Так продолжалось до тех пор, пока последняя сестра не пришла в класс в тот
день, когда ей исполнился 21 год."
из этого условия есть 2 варианта - либо последней сестре исполнилось 21 год тогда когда она впервые пришла в класс либо на следующий день так как позднее придёт другая сестра и эта сестра уже не будет последней что противоречит условию
отсюда введён цикл по i
и опять ничего...

← →
default © (2004-06-05 23:03) [83]

SergP © (05.06.04 22:53) [80]
да да именно в этой штуке хитрость

← →
default © (2004-06-05 23:10) [84]

SergP © (05.06.04 22:53) [80]
if RecurLaw(d1, n) = 21*365 - i then
нужно рассмотреть все возможные возраста последней сестры в днях
(сделать цикл по ним)
то есть изменяться будет выделенное жирным
благо получим единственное решение!
возмёшься?
високосный раз в 4 года вроде бы(

← →
SergP © (2004-06-05 23:16) [85]

> возмёшься?

В смысле? Я же писал свой вариант в [67] SergP © (04.06.04 20:52)

> високосный раз в 4 года вроде бы(

Не всегда... :-))

procedure TForm1.Button1Click(Sender: TObject);
var
n, i, j: Byte;
d1: Word;
begin
for i := 0 to 1 do
for j := 4 to 6 do
for n := 0 to 4 do
for d1 := 1 to 2561 do
if RecurLaw(d1, n) = 21*365 + j - i then
Memo1.Lines.Add("d1=" + IntToStr(d1) + ";n=" + IntToStr(n)
+ "(i=" + IntToStr(i) + ";j=" + IntToStr(j) + ")");
end;
j - число високосных года(тоже от 4 до 6)
i - после-ей сестре испол-ось 21 когда она первый раз пришла на занятияй(i=0) или во второй раз(i=1)
получилось два варианта
2556 и 638 и то их по паре(разные обстоятельства)
не могли в условии дни дать...вот ведь изверги

возможно предпологается 638 исключить по физсмыслу
2556 это чуть больше 7 лет, первый класс?!

← →
Lessa (2004-06-06 09:53) [88]

А модно вопрос: последняя сестра пришла, когда ей исполнИлось или исполнЯлось 21? В смысле, может, у нее через несколько часов рождение?

Пятничные несложные задачки. Найти похожие ветки