Пример 12 program std_fun var real begin writeln Введите вещественное

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
//Пример №12
program std_fun;
var x:real;
begin
writeln('Введите вещественное число');
readln(x);
writeln('Модуль числа — ', abs(x));
writeln('Квадратный корень числа — ', sqrt(x));
writeln('Квадрат числа равен — ', sqr(x));
writeln('Целая часть числа — ', trunc(x));
writeln('Округление числа до ближайшего целого — ', round(x));
writeln('Дробная часть числа — ', frac(x));
end.