Pascal ABC NET. Напишите программу с использованием подпрограмм. Реализуйте четыре...

Question

Pascal ABC NET. Напишите программу с использованием подпрограмм. Реализуйте четыре подпрограммы – по одной на каждое арифметическое действие.

Answer 1

//PascalABC.NET 3.1 сборка 1230
function sum(a, b: real) := a + b;
function bet(a, b: real) := a - b;
function mult(a, b: real) := a * b;
function divis(a, b: real) := a / b;
begin
  var a := ReadReal('Введите два числа:');
  var b := ReadReal;
  WritelnFormat('{0} + {1} = {2}', a, b, sum(a, b));
  WritelnFormat('{0} - {1} = {2}', a, b, bet(a, b));
  WritelnFormat('{0} * {1} = {2}', a, b, mult(a, b));
  WritelnFormat('{0} / {1} = {2}', a, b, divis(a, b));
end.

Comments

Спасибо!