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

0 голосов
89 просмотров

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


Информатика (15 баллов) | 89 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(52.1k баллов)