Строки.Паскаль.Подскажите плз.

[NEMO1991]

подскажите как проверить является число целым или вещественным(с дробной частью) или надо вообще по другому делать?


var n:real;
s:string;
w:integer;
begin
readln(s);
val(s,n,w);
if w=0 then
writeln('число')
else
writeln('не число');
end.

[NSvirus]

у тебя n- real, значит любое число которое ты введешь будет считаться вещественным

[Daramant]

Да, верно написал.
val - преобразует строку с число.

Чтобы убедиться, является ли число целым или вещественным, можно дописать проверку:

if n = int(n) then
// integer (в смысле без дробной части)
else
// real (с дробной частью)

[NEMO1991]

спасибо))мозги уже не варять а еще 5 задач решать надо))