Написать программу нахождения минимальной суммы N, при которой в пятницу друзьям будет что употребить

@Новичок8 · Регистрация: 03.05.2015

Author24 — интернет-сервис помощи студентам

помогите составить программу в паскале!пожалуйста! и если, можно, то и в С++

Всю неделю бутылка «Пепси » стоила K рублей, а пустая бутылка – L рублей. Компания друзей, собравшаяся в понедельник, располагала первоначальным капиталом в N рублей и купила на все деньги «Пепси». Употребив всё, они на следующий день сдали пустые бутылки, добавили сдачу предыдущего дня и снова на все деньги купили «Пепси». Данная процедура продолжалась каждый день, пока была возможность. Написать программу нахождения минимальной суммы N, при которой в пятницу друзьям будет что употребить.

@JokeR.BY · 17.05.2015, 03:55

Не по теме:

Сообщение от Новичок8

будет что употребить

ни прибавить ни отнять

Pascal

function Generation(const k, l: Word; n: LongWord): Boolean;
var
    i: 0..4;
    x: LongWord;
begin
    i := 0;
    repeat
        Inc(i);
        x := n div k;
        Dec(n, x * (k - l));
    until ((i = 4) Or (n < k));
    Generation := (i = 4) And (n >= k);
end;
var
    k, l: Word;
    n: LongWord;
begin
    Write('K='); ReadLn(k);
    Write('L='); ReadLn(l);
    if (k <= l)
    then
        WriteLn('N=', l)
    else
    begin
        n := k + 1;
        while (Not Generation(k, l, n)) do
            Inc(n);
        WriteLn('N=', n);
    end;
end.

большего мой сонный мозг придумать не захотел.

Кликните здесь для просмотра всего текста

C++

#include <iostream>
#include <cstdlib>
 
using namespace std;
 
bool Generation(const int k, const int l, int n)
{
    for (int i = 1; i <= 4; i++)
    {
        int temp = n / k;
        n -= temp * (k - l);
        if (n < k)
            return false;
    }
    return (n >= k);
}
 
int main()
{
    int k, l;
    cout << "K="; cin >> k;
    cout << "L="; cin >> l;
    if (k <= l)
        cout << "N=" << l << endl;
    else
    {
        int n = k + 1;
        while (!Generation(k, l, n))
            n++;
        cout << "N=" << n << endl;
    }
    system("pause");
    return 0;
}

@Новичок8 0 / 0 / 0 Регистрация: 03.05.2015 Сообщений: 34
		1
	Написать программу нахождения минимальной суммы N, при которой в пятницу друзьям будет что употребить 16.05.2015, 19:24. Показов 1258. Ответов 1 Метки нет (Все метки) помогите составить программу в паскале!пожалуйста! и если, можно, то и в С++ Всю неделю бутылка «Пепси » стоила K рублей, а пустая бутылка – L рублей. Компания друзей, собравшаяся в понедельник, располагала первоначальным капиталом в N рублей и купила на все деньги «Пепси». Употребив всё, они на следующий день сдали пустые бутылки, добавили сдачу предыдущего дня и снова на все деньги купили «Пепси». Данная процедура продолжалась каждый день, пока была возможность. Написать программу нахождения минимальной суммы N, при которой в пятницу друзьям будет что употребить. 0

	17.05.2015, 03:55

Написать программу нахождения минимальной суммы N, при которой в пятницу друзьям будет что употребить

Решение