Написать программу для нахождения целого числа.Делением,умножением.как хотите.
var a:real;begin readln (a); a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа} writeln ('Целая часть числа а равна ',a)end.
если я правильно понял смысл
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл