Показать сообщение отдельно
Старый 06.06.2006, 17:03   #3
 
Аватар для Overlord
 
Статус: Старейшина
Регистрация: 27.03.2005
Адрес: Великая и могучая
Сообщений: 732
СПАСИБО: 49
сказали Спасибо 293 раз(а) в 169 сообщении
Получено наград:
По умолчанию Re: Решебник (turbo pascal, Delphi)

Цитата:
Сообщение от Джони
Пожалуйста помогите составить алгоритм решения задачи: сколько можно купить быков, коров и телят, платя за быка 10р., за корову – 5р., а за теленка – 0,5 р., если на 100 р. надо купить 100 голов скота?

Код:
program Project2;
{$APPTYPE CONSOLE}

uses
  SysUtils;

  var i,j,k, count:integer;

begin
  count:=0;
  for i:=1 to 10 do
    for j:=1 to 20 do
      for k:=1 to 200 do
       begin
         if (i*10)+(j*5)+(k*0.5)=100 then
           begin
              writeln('Bukov ', i, ' Korov ', j, ' Telyat ', k);
              count:=count+1;
           end;
       end;
  writeln('Vsego variantov ', count);
  readln;
end.
Поясню: сколько можно на сто рублей купить быков? 10. Коров? 20. Телят? 200.
Делаем три цикла и сверяем количество покупок с лимитом денег


[Ссылки могут видеть только зарегистрированные пользователи. ]

Последний раз редактировалось Overlord; 06.06.2006 в 17:10.
Overlord вне форума   ЦИТИРОВАТЬ
Эти 2 пользователя(ей) сказали Спасибо Overlord за это полезное сообщение: