Question

Ввести дробное число. Возвести в квадрат дробную часть числа. Задача в паскале! Срочно

Answer 1

Вот программка:

uses Crt;
var  n, drob: real;

begin
  ClrScr;
  Write (' n = ');
  ReadLn(n);
  drob:=(frac(n)*frac(n));
  WriteLn(' drob^2 =', drob:8:4);
  ReadLn;
end.

Answer 2

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

program SquareFractionalPart;

var
  number: real;
  fractionalPart: real;
  squaredFractionalPart: real;

begin
  // Введите дробное число
  write('Введите дробное число: ');
  readln(number);

// Вычислите дробную часть числа
  fractionalPart := frac(number);

// Возведите дробную часть числа в квадрат
  squaredFractionalPart := sqr(fractionalPart);

// Выведите результат
  writeln('Квадрат дробной части числа ', number, ' равен ', squaredFractionalPart);
end.

В этом коде мы используем встроенные функции `frac` для вычисления дробной части числа и `sqr` для возведения в квадрат. Затем мы выводим результат на экран.

Примечание: Пожалуйста, учтите, что язык Паскаль не является наиболее популярным языком программирования в настоящее время, и его использование ограничено. Если у вас возникнут проблемы с выполнением этой задачи на Паскале, я могу помочь вам переписать код на другом языке программирования, таком как Python или JavaScript.