<span>( ax + b ) : ( cx + d ) = 0
Сводим уравнение к системе:
{ ax + b = 0
{ cx + d </span>≠<span> 0
{ ax = -b
{ cx </span>≠<span> -d
</span>
Можно учесть все случаи, используя больше 16 условий, но я предпочту более оптимальный вариант, так как знаю как зависит количество корней линейного уравнения от коэффициентов.
Программа на паскале:
var a, b, c, d: real;
begin
read(a, b, c, d);
if (c = 0) and (d = 0) then writeln('NO')
else if (a = 0) and (b = 0) then writeln('INF')
else if a = 0 then writeln('NO')
else if c = 0 then writeln(-b/a)
else if b/a = d/c then writeln('NO')
else writeln(-b/a)
end.
<span>Домашні тварини живуть з людиною, яка їх утримує, надаючи їм житло і їжу. Домашні тварини приносять людині користь, або як джерело матеріальних благ і послуг, або як друзі, що скрашують його дозвілля. Більшість домашніх тварин легко розмножуються. Проводячи штучний відбір, людина може контролювати розмноження домашніх тварин і ознаки, які вони передають своєму потомству. Домашні тварини можуть міститися в спеціальних приміщеннях (скотний двір, стайня, собача будка), але можуть жити і безпосередньо в будинку людини. З тих тварин, які живуть в будинку, одних містять в клітинах, акваріумах, тераріумах і інших "будиночках", а іншим (наприклад, кішкам, собакам, кроликам і навіть мавпам) дозволяють вільно переміщатися по приміщенню.
</span>
<span>Если помог, жми "Спасибо"</span>
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var m:=ReadInteger('Число минут:');
Writeln(m div 60,'ч ',m mod 60,'м')
end.
<u><em>Тестовое решение:</em></u>
Число минут: 150
2ч 30м
Можно алгоритм как приготовить бутерброд и т.д.