Напишите программы на Паскале.
Из трёх данных вещественных чисел R, M, Y выбрать наибольшее и вывести его на экран. Числа R, M, Y ввести с клавиатуры с оператора ввода.
Напишите программу решения уравнения ax + b = 0, где a и b — заданные действительные числа, любое из которых может равняться нулю. ответ выведите с точностью до тысячных.
В отчет включить текст программ, реакцию ЭВМ.

#include <iostream>

double multiply(double num1, double num2) {

   if (num2 > 0) return num1 + multiply(num1, num2 - 1);

   else if (num2 < 0) return -num1 + multiply(num1, num2 + 1);

   return 0;

}

signed main() {

   //2.2 * 2

   std::cout << multiply(2.2, 2) << std::endl;

   //4 * 2

   std::cout << multiply(4, 2) << std::endl;

   //-8 * 2

   std::cout << multiply(-8, 2) << std::endl;

   //0*1

   std::cout << multiply(0, 1) << std::endl;

   return 0;

}

pascal

Объяснение:

var

 i, j ,k: integer;

 l, lnew: string;

 a: array of integer;

begin

 Write('Введите число >> ');

 ReadLn(l);

 SetLength(a ,length(l));

 for i := 0 to length(l) - 1 do

   a[i] := strtoint(l[i + 1]);    

 for i := 0 to length(l) - 2 do

     for j := i + 1 to length(l) - 1 do

       if a[i] > a[j] then

       begin

         k := a[i];

         a[i] := a[j];

         a[j] := k;

       end;

  for i := 0 to length(l) - 1 do

   lnew := lnew + inttostr(a[i]);

 WriteLn('Новое число равно ', lnew);

end.