"Задачка"

← →
werb (2006-05-30 18:38) [0]

Есть число, допустим целое, например 924.
Нужно разбить его на сумму четырех не равных чисел, например, 200 + 62 + 450 + 212.

Может кто-нибудь помочь?

← →
Pavia © (2006-05-30 18:44) [1]

a:=Random(924);
b:=Random(924-a);
c:=Random(924-a-b);
d:=924-a-b+c;

← →
Pavia © (2006-05-30 18:47) [2]

repeat
a:=Random(924);
b:=Random(924-a);
c:=Random(924-a-b);
d:=924-a-b-c;
until (a<>b) and (a<>c)and (a<>d) and(b<>c) and(b<>d) and(c<>d)

← →
TUser © (2006-05-30 19:04) [3]

может потребоваться

until ... and (d <> 0)

По сабжу
if N <= 10 then
raise Exception.Create ("не хачу работать с такими параметрами");
a := 1;
b := 2;
c := 3;
d := N - a - b - c;

← →
werb (2006-05-30 21:58) [4]

Спасибо!

"Задачка" Найти похожие ветки