Написать программу определения знака результата деления двух чисел в зависимости от знаков этих чисел.

Написать в паскале.

Var

a, b:real;

begin

Write ('Введите через пробел два числа: ') ; Read (a, b) ;

if b=0 then Writeln ('Результат деления не определен')

else

if a*b>0 then Writeln ('Частное a/b имеет положительный знак')

else

if a=0 then Writeln ('Частное a/b равно нулю')

else Writeln ('Частное a/b имеет отрицательный знак')

end.

Тестовое решение:

Введите через пробел два числа: 8 - 4

Частное a/b имеет отрицательный знак

Var s1, s2:string;

begin;

writeln ('Введите исходные знаки') ;

readln (s1) ;

readln (s2) ;

if ((s1'-') and (s1'+')) or ((s2'-') and (s2'+')) then

begin;

writeln ('Ошибка') ;

exit;

end;

if ((s1='+') and (s2='+')) or ((s1='-') and (s2='-')) then writeln ('+') else writeln ('-') ;

end.

С числами:

var a, b:integer;

begin;

writeln ('Делимое:') ;

readln (a) ;

writeln ('Делитель') ;

readln (b) ;

if b=0 then

begin;

writeln ('Нельзя делить на ноль. Если это, конечно, не jа vascript.') ;

exit;

end;

if a=0 then

begin;

writeln ('0') ;

exit;

end;

if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln ('+') else writeln ('-') ;

end.