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

Предыдущий
вопрос Следующий
вопрос

Пример программы на Pascal ABC NET с использованием подпрограмм для выполнения арифметических действий:

program ArithmeticOperations;
var
num1, num2: Integer;
procedure Addition(a, b: Integer);
begin
writeln('Addition result: ', a + b);
end;
procedure Subtraction(a, b: Integer);
begin
writeln('Subtraction result: ', a - b);
end;
procedure Multiplication(a, b: Integer);
begin
writeln('Multiplication result: ', a * b);
end;
procedure Division(a, b: Integer);
begin
if b <> 0 then
writeln('Division result: ', a / b)
else
writeln('Cannot divide by zero');
end;
begin
writeln('Enter two numbers:');
readln(num1, num2);
Addition(num1, num2);
Subtraction(num1, num2);
Multiplication(num1, num2);
Division(num1, num2);
end.

Эта программа позволяет пользователю ввести два числа и затем выполняет четыре арифметических операции (сложение, вычитание, умножение и деление) с этими числами, используя соответствующие подпрограммы.