|
Цитата: |
|
|
|
|
Сообщение от Джони
|
|
|
|
|
|
|
|
Пожалуйста помогите составить алгоритм решения задачи: сколько можно купить быков, коров и телят, платя за быка 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.
Делаем три цикла и сверяем количество покупок с лимитом денег