Скачать: CL | DM;

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

← →
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]

Спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c