Даны два ненулевых числа. Найдите сумму, разность, произведение и частное. Если a>b, a<b.

1

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

2012-05-21T21:02:02+04:00

var a,b: real;

begin

  readln(a,b); 

  if (a=0) or (b=0) then exit;   //проверка входных данных

  if (a>b) or (a<b) then begin writeln('Сумма чисел: ',a+b);

                                           writeln('Разность чисел: ',a-b);

                                           writeln('Произведение чисел: ',a*b);

                                           writeln('Частное чисел: ',a/b:0:3);

                                  end;

end.