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

1

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

  • ali07
  • главный мозг
2011-06-09T15:26:00+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

program xxx;

  var a, b, s : real;

        r, p, d : real;

begin

   write ('введите певрое число- ');

   readln (a);

   write ('введите второе число- ');

   readln (b);

   s:= a+ b;

   r := a - b;

   p := a* b;

   d := a/b;

   writeln ('сумма =', s);

   writeln ('разность =', r);

   writeln ('произведение =', p);

   writeln ('частное = ', d);

   readln

end.