Question

Помогите пожалуйста в паскале. Составьте программу для нахождения произведения двух наименьших из трёх различных чисел.

Answer 1

Конечно, я могу помочь вам с написанием программы на Pascal для нахождения произведения двух наименьших из трёх различных чисел. Вот пример программы:

program MinProduct;

var
  num1, num2, num3, min1, min2, product: real;

begin
  // Ввод трех различных чисел
  writeln('Введите три различных числа:');
  write('Число 1: ');
  readln(num1);
  write('Число 2: ');
  readln(num2);
  write('Число 3: ');
  readln(num3);

// Находим два наименьших числа
  if (num1 <= num2) and (num1 <= num3) then
  begin
    min1 := num1;
    if num2 <= num3 then
      min2 := num2
    else
      min2 := num3;
  end
  else if (num2 <= num1) and (num2 <= num3) then
  begin
    min1 := num2;
    if num1 <= num3 then
      min2 := num1
    else
      min2 := num3;
  end
  else
  begin
    min1 := num3;
    if num1 <= num2 then
      min2 := num1
    else
      min2 := num2;
  end;

// Находим произведение двух наименьших чисел
  product := min1 * min2;

// Вывод результата
  writeln('Наименьшие числа: ', min1, ' и ', min2);
  writeln('Произведение двух наименьших чисел: ', product);

readln;
end.

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