Ввести 2 числа вычислить сумму чисел и их произведение вывести на экран больше значение
Var n,m, sum, pro:Double;beginwriteln(Введите числа n,m);read(n,m);sum := n +m;pro:= n* m;writeln(sum :=,sum);writeln(pro:=,pro);end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var n,m, sum, pro:Double;beginwriteln(Введите числа n,m);read(n,m);sum := n +m;pro:= n* m;writeln(sum :=,sum);writeln(pro:=,pro);end.