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

Question

Информатика

Ромаха

14 ноября, 11:08

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

+2

Ответы (1)

Знаете ответ на вопрос?

Милетя · Answer 1

var

a:real;

begin

readln (a) ;

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

writeln ('Целая часть числа а равна ', a)

end.

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