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

Question

Информатика

Алексей

3 сентября, 11:34

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.