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

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

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.

{
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}

var
 sq : array[0..999] of array[0..9] of boolean;
 co : array[0..999] of integer;
 ar : array[1..10003] of 0..9;
  i,j: integer;
 x: integer;
 t : boolean;
 begin
 for i := 0 to 999 do
   begin
   for j := 0 to 9 do
   sq[i][j] := false;
   co[i] := 0;
   end;
 for i := 1 to 3 do
   ar[i] := 0;
 i := 3;
 t := true;
 {write('000');}
 while t do
   begin
   i := i + 1;
   x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
   if co[x] >= 10 then t := false
     else
     begin
     j := 1;
     while sq[x][j] do 
       j := (j + 1) mod 10;
     ar[i] := j;
     sq[x][j] := true;
     co[x] := co[x] + 1;
     {write(j)}
     end;
   end;
 {writeln;}
 writeln('Length: ',i - 1);

 {просто чтобы убедиться}
 for i := 0 to 999 do
   for j := 0 to 9 do
   sq[i][j] := false;

  t := true;
 j := 0;
 i := 1;
 while (i <= 10000) and t do
   begin
   x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
   if sq[x][ar[i+3]] then t := false
     else
     begin
     sq[x][ar[i+3]] := true;
     j := j + 1;
     end;
   i := i + 1
   end;
 if t and (j = 10000) then
   write('Confirmed')
end.

Чаще всего среди доступных групп функций пользователи Экселя обращаются к математическим. С них можно производить различные арифметические и алгебраические действия. Их часто используют при планировании и научных вычислениях. Узнаем, что представляет собой данная группа операторов в целом, и более подробно остановимся на самых популярных из них.

 

Применение математических функций

С математических функций можно проводить различные расчеты. Они будут полезны студентам и школьникам, инженерам, ученым, бухгалтерам, планировщикам. В эту группу входят около 80 операторов. Мы же подробно остановимся на десяти самых популярных из них.

Открыть список математических формул можно несколькими путями. Проще всего запустить Мастер функций, нажав на кнопку «Вставить функцию», которая размещена слева от строки формул. При этом нужно предварительно выделить ячейку, куда будет выводиться результат обработки данных. Этот метод хорош тем, что его можно реализовать, находясь в любой вкладке.

Объяснение: