Дано действительное число. Вывести целую и дробную части этого числа. Число задать...

Question

Дано действительное число. Вывести целую и дробную части этого числа. Число задать статически.

Answer 1

Const a:real=345.75;
begin
writeln(int(a));
writeln(frac(a));
end.