Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

"Задачка" [D6, WinXP]

werb © (2006-05-30 18:38:00)
Есть число, допустим целое, например 924.
Нужно разбить его на сумму четырех не равных чисел, например, 200 + 62 + 450 + 212.

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

werb (2006-05-30 21:58:00) [1]
Спасибо!

TUser (2006-05-30 19:04:00) [2]
может потребоваться

until ... and (d <> 0)

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

Pavia (2006-05-30 18:47:00) [3]
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)

Pavia (2006-05-30 18:44:00) [4]
a:=Random(924);
b:=Random(924-a);
c:=Random(924-a-b);
d:=924-a-b+c;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »