Как округлить число до целых в pascal?

@richard 

Здравствуйте!

Для округления числа до целого вам следует использовать функцию round()

Пример:

1
2
3
4
5

Program Okruglenie;
var a: integer;
begin
	a:= round(10.83); // в переменную а будет внесено значение 11
end.

@richard 

Для округления числа до целых в pascal можно использовать функцию Round. Например:

program rounding;

var x: real; rounded: integer;

begin x := 5.6; rounded := Round(x); writeln('Rounded value of ', x, ' is ', rounded); end.

В этом примере мы объявляем переменную x типа real (вещественное число) и присваиваем ей значение 5.6. Затем мы вызываем функцию Round, которая округляет значение x до ближайшего целого числа и присваиваем округленное значение переменной rounded типа integer (целое число). Наконец, мы выводим исходное значение x и его округленное значение rounded на экран.