Question

Написать процедуру которая складывает два любых числа (два параметра) Срочно на паскале

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

procedure Sum2(a,b:real; var r:real);
begin
  r:=a+b
end;

begin
  var a,b,c:real;
  (a,b):=ReadReal2('Введите два числа');
  Sum2(a,b,c);
  Writeln('Их сумма равна ',c)
end.

Пример
Введите два числа -3.184 153
Их сумма равна 149.816

Answer 2

Var
a, b, c: integer;
procedure sum(x, y: integer; var z: integer);
begin
z := x + y;
end;
begin
writeln('Введите два числа: ');
readln(a, b);
sum(a, b, c);
writeln(c);
end.

Answer 3

Для написания процедуры сложения двух чисел на языке Паскаль, вам понадобится использовать блок кода, который будет принимать два числа в качестве параметров и выводить их сумму. Вот пример такой процедуры:

pascalCopy code
program SumTwoNumbers;

// Процедура сложения двух чисел
procedure AddNumbers(a, b: Integer);
var
  sum: Integer;
begin
  sum := a + b;
  writeln('Сумма чисел ', a, ' и ', b, ' равна: ', sum);
end;

var
  num1, num2: Integer;

begin
  writeln('Введите первое число:');
  readln(num1);

  writeln('Введите второе число:');
  readln(num2);

  // Вызов процедуры сложения
  AddNumbers(num1, num2);

  // Чтобы окно не закрылось сразу после выполнения программы
  readln;
end.

Как только вы запустите этот код, программа запросит у вас два числа и выведет их сумму на экран.