Question

Написать программу для нахождения целого числа.Делением,умножением.как хотите.

Answer 1

var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.

 

 

если я правильно понял смысл