четвертая сложная задача

[Руслан666]

Решите пожалуйста! Буду благодарен!

Для праздничного чаепития необходимо купить n пирожных. В магазине продается всего два вида пирожных, при чем пирожных одного вида осталось a штук, а пирожных другого вида осталось b штук. Пирожные одного вида считаются одинаковыми. Сколькими способами можно купить ровно n пирожных?

Формат вхыодных данных
В первой строке входных данных заисано исло n - количество пирожных, которое нужно купить, во второй и третьей сроке заисаны числа a и b - количество пирожных каждого из двух видов, которые есть в магазине. все числа - целые, от 0 до 100.

[BDA]

var
  n, a, b: integer;

begin
  readln(n);
  readln(a);
  readln(b);
  if a + b < n then
    writeln('Impossible')
  else
    writeln(a + b - n + 1);
  readln;
end.

Не уверен.
Ждем Ваши наработки в других темах

[Руслан666]

Спасибо за программу.

[Serge_Bliznykov]

BDA, не думаю, что приведённая Вами формула даёт правильный ответ.

рассмотрим задачу.
a = 10 b = 10 (имеется по 10 пирожных каждого вида)
n = 3 (нужно купить три пирожных)
различные варианты:
A A A
A A B
A B B
B B B
итого, всего 4-ре варианта



p.s. всё вышесказанное является ИМХО,
без всяких претензий на истину в последней инстанции...
возможно, это я понял условия задачи неверно...

[Poma][a]

Серж, ага. Всё верно.
Тут наверное перебор, с учетом условий конечности A и B

ADD
Вроде работает :

var
        a, b, n, i, t, count: Integer;
        s : string;

begin
        ReadLn (a, b, n);

        if a+b < n then
                WriteLn ('Impos')
        else begin
                i := 1;
                s := '';
                for i := 1 to a do
                        if Length(s) = n then
                                Break
                        else
                        s := s + '0';
                t := Length(s);

                for i := 1 to b do
                        if Length(s) = n then
                                Break
                        else
                                s := s + '1';
                i := t; count := 1;
                while s[1] <> '1' do begin
                        s[i] := '1';
                        Dec(i);
                        Inc (count)
                end;
        end;
        WriteLn(count)
end.

[BDA]

Serge_Bliznykov, Вы правы. Я совсем забыл рассмотреть случай, когда a или/и b больше n.

var
  n, a, b: integer;

function min(a, b: integer): integer;
begin
  if a > b then
    min := b
  else
    min := a;
end;

function max(a, b: integer): integer;
begin
  if a > b then
    max := a
  else
    max := b;
end;

begin
  readln(n);
  readln(a);
  readln(b);
  if a + b < n then
    writeln('Impossible')
  else
    writeln(min(a, n) - max(n - b, 0) + 1);
  readln;
end.

[Poma][a]

BDA, красиво

И без циклов..
Я - то, тож пытался додумкать, как по-красивше сделать, но увы.

[Аватар]

А так тоже вроде оно: min(a,n)+min(b,n)-n+1

[Eugeny19841]

Сообщение от Аватар

А так тоже вроде оно: min(a,n)+min(b,n)-n+1

Я прочитал, что это формула определения длины отрезка, но не нашел ее нигде в интернете. Подскажите, Пожалуйста где можно найти и почему +1 в конце?