Гири, Составить нужный вес Опции

[Zigfried]

Пусть имеется 10 гирь весом а1,а2,...,а10.Обозначим через Ск число способов,которыми можно составить вес к,
то есть Ск-это число решений уравнения а1х1+а2х2+...+а10х10=к,где Хi может принимать значения 0 или 1
(i=1,...,10).Получите с1,с2,...,с10.
Помогите написать пожалуйста))))

Сообщение отредактировано: Zigfried - 3.12.2009 20:35

[Вячеслав Л.]

Извиняюсь, за встревание, но мне нужна аналогичная проверка. Вот так возможно это сделать?:

...
repeat
writeln('vvedite neotrizatelnoe 4islo');
readln(i);
until i>=0;
...

Или, предполагалось как-то по другому?

Типа не ставить заплатки на штаны, а каждому встречному говорить: "здесь у меня дырка, вы туда не смотрите"

[Lapp]

так возможно это сделать?:

...
repeat
writeln('vvedite neotrizatelnoe 4islo');
readln(i);
until i>=0;
...

Или, предполагалось как-то по другому?

Конечно. Можно еще добавить что-то типа вывода "недопустимое число; повторите ввод:".

А по-другому - это только если отказываться от ReadLn и делать посимвольный ввод. Тут это абсолютно лишнее.