Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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.