Question

Даны 3 числа найти произведение тех из них которые по модулю меньше 1 написать программу на pascal

Answer 1

Ответ:

program Multi3;

var

 A: array [1..3] of Double;

 i: Integer;

 p: Double;

 b: Boolean;

begin

 Randomize;

 Write ('Исходные числа:');

 WriteLn;

 for i := 1 to 3 do begin

   A [i] := Random (4000) / 1000 - 1;  // заполняем числами, чтоб были и положительные и отрицательные

   Write (A[i] :10 :3, ' ');

 end;

 b := False;

 p := 1;

 for i := 1 to 3 do begin

   if Abs (A [i]) < 1 then begin

     b := True;    // включаем флаг, если найдено хотя бы одно подходящее число

     p := p * A [i];

   end;

 end;

 WriteLn;

 if b then

   WriteLn ('Произведение = ', p :10 :3)

 else

   WriteLn ('Произведение не определено.');

 ReadLn;

end.

Answer 2

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

pascalCopy code
program MultiplyNumbers;

var
  number1, number2, number3, product: real;

begin
  writeln('Введите первое число:');
  readln(number1);
  
  writeln('Введите второе число:');
  readln(number2);
  
  writeln('Введите третье число:');
  readln(number3);
  
  product := 1.0; // Инициализируем произведение единицей
  
  if abs(number1) < 1 then
    product := product * number1;
  
  if abs(number2) < 1 then
    product := product * number2;
  
  if abs(number3) < 1 then
    product := product * number3;
  
  writeln('Произведение чисел, модуль которых меньше 1: ', product:0:2);
  
  readln;
end.

Программа запрашивает у пользователя ввод трех чисел и затем находит их произведение, если модуль каждого из них меньше 1. Результат выводится на экран с точностью до двух знаков после запятой.