Question

С клавиатуры вводится 2 веществнных числа выделить в первом числе дробнуя часть во втором целую часть из результатов составить третие число это в паскале

Answer 1

===== PascalABC.NET =====

begin

 var (a, b) := ReadReal2;

 var c := Trunc(b) + Frac(Abs(a));

 Print(c)

end.

Answer 2

Для составления программы на языке Pascal, которая будет выполнять описанные вами действия, следует использовать переменные для ввода двух вещественных чисел и далее выделять их дробную и целую части, а затем объединять их в третье число. Вот пример программы:

pascalCopy code
program CombineNumbers;

var
  num1, num2: real;
  fractionPart: real;
  integerPart: integer;
  resultNumber: real;

begin
  // Вводим первое и второе вещественное число с клавиатуры
  writeln('Введите первое вещественное число:');
  readln(num1);

  writeln('Введите второе вещественное число:');
  readln(num2);

  // Выделяем дробную часть первого числа
  fractionPart := frac(num1);

  // Выделяем целую часть второго числа
  integerPart := trunc(num2);

  // Составляем третье число, объединяя дробную часть первого и целую часть второго
  resultNumber := fractionPart + integerPart;

  // Выводим результат
  writeln('Третье число: ', resultNumber);
end.

При запуске программы она будет запрашивать ввод двух вещественных чисел с клавиатуры и выводить третье число, полученное объединением дробной части первого числа и целой части второго числа.