Напишите пожалуйста программу для Pascal ABC по заданию: Даны два числа а,б (real) большее число разделить на меньшее если это возможно.Если разделить нельзя, найти сумму

1

Ответы и объяснения

2013-01-18T18:39:29+00:00

Var a,b,z:real;

Begin

readln(a,b); 

If (a>b) and (b>0) then z:=a/b else

If (a>b) and (b<0) then z:=a/b else

If (a>b) and (b=0) then z:=a+b else

If (b>a) and (a>0) then z:=b/a else

If (b>a) and (a<0) then z:=b/a else

If (b>a) and (a=0) then z:=a+b;

Writeln(z);

end.