Question

Даю 50 баллов пожалуйста помогите!!!! Составьте программу вычисления произведения двух крупнейших из трех введенных с клавиатуры чисел. (в паскале) Складіть програму обчислення добутку двох найбільших із трьох введених із клавіатури чисел. (в паскалі)

Answer 1

var a,b,c:real;

begin

 writeln('Введите 3 числа');

 readln(a,b,c);

 if a>b then

   if b>c then

     writeln(a*b)

   else

     begin

     writeln(a*c);

     end

 else

   begin

   if a>c then

     writeln(a*b)

   else

     begin

     writeln(b*c);

     end;

   end;

end.

Answer 2

Конечно, вот пример программы на языке Pascal для вычисления произведения двух крупнейших из трех введенных чисел:

pascalCopy code
program CalculateProduct;
var
  num1, num2, num3, product: real;
begin
  writeln('Введите первое число: ');
  readln(num1);
  
  writeln('Введите второе число: ');
  readln(num2);
  
  writeln('Введите третье число: ');
  readln(num3);
  
  { Найдем два наибольших числа }
  if (num1 >= num2) and (num1 >= num3) then
  begin
    product := num1;
    if num2 >= num3 then
      product := product * num2
    else
      product := product * num3;
  end
  else if (num2 >= num1) and (num2 >= num3) then
  begin
    product := num2;
    if num1 >= num3 then
      product := product * num1
    else
      product := product * num3;
  end
  else
  begin
    product := num3;
    if num1 >= num2 then
      product := product * num1
    else
      product := product * num2;
  end;
  
  writeln('Произведение двух наибольших чисел: ', product);
  readln;
end.

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