Pascal. Как написать фрагмент кода, который будет определять, целое число, или дробное?

Question

Информатика

Снандулия

25 июля, 18:20

Pascal. Как написать фрагмент кода, который будет определять, целое число, или дробное?

+3

Ответы (1)

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

Афиноген · Answer 1

Var

p, k:real;

begin

writeln ('Введите число: ') ;

readln (p) ;

k:=frac (p) ;

if k=0 then write ('Целое число')

else write ('Дробное число') ;

readln;

end.