Составьте программу исследования положительного вещественного числа А, которая, используя процедуру, определяла бы значения следующих величин: целая часть, дробная часть, значение арифметического квадратного корня — Pascal(Паскаль)

var x:real;
procedure digit(a:real);
begin
writeln('Целая часть: ',trunc(a));
writeln('Дробная часть: ',frac(a));
writeln('Квадратный корень из ',a,': ',sqrt(a));
end;
begin
writeln('Введите число');
readln(x);
digit(x);
end.

Похожие записи/страницы:

Leave a Comment

54 + = 60