vasya112
Опубликовано 6 лет назад по предмету Информатика от vasya112


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

  1. Ответ
    Ответ дан ali07

    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.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц