Найти количество кроликов и фазанов в клетке

@marishka_k · Регистрация: 04.06.2013

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

В клетке сидят кролики и фазаны. Всего у них 18 ног. Узнать сколько в клетке тех и других.укажите все решения

@Ev1l · 24.06.2013, 11:17

Delphi

var k,f,l:integer;
begin
l:=strtoint(Edit1.Text); //ноги
k:=0;                    //кролики
f:=0;                    //фазаны
repeat
    f:=(l-4*k)div 2;
    ShowMessage('Фазанов: '+inttostr(f)+#13#10+'Кроликов: '+inttostr(k));
    k:=k+1;
    until k*4>l;
end;

@barbudo59 · 24.06.2013, 11:20

@marishka_k, делаем цикл с условием i*4<18, определяем кол-во кроликов, остальное "добираем" фазанами.
Результат выводить лучше в несколько строк, например, в Memo.

@marishka_k 0 / 0 / 1 Регистрация: 04.06.2013 Сообщений: 12
		1
	Найти количество кроликов и фазанов в клетке 24.06.2013, 09:52. Показов 1944. Ответов 2 Метки нет (Все метки) В клетке сидят кролики и фазаны. Всего у них 18 ног. Узнать сколько в клетке тех и других.укажите все решения 0

@barbudo59 Я не экстрасенс 382 / 339 / 34 Регистрация: 22.01.2013 Сообщений: 1,126
	24.06.2013, 11:20	3
	@marishka_k, делаем цикл с условием i*4<18, определяем кол-во кроликов, остальное "добираем" фазанами. Результат выводить лучше в несколько строк, например, в Memo. 0

Опции темы

Найти количество кроликов и фазанов в клетке

Решение