Дана строка.

Если она представляет собой запись целого числа, то вывести 1, если

вещественного (с дробной частью) - вывести 2; если строку нельзя

преобразовать в число, то вывести 0. Считать, что дробная

часть вещественного числа отделяется от его целой части десятичной точкой ".".

Question

Информатика

Горгония

8 декабря, 02:07

Дана строка.

Если она представляет собой запись целого числа, то вывести 1, если

вещественного (с дробной частью) - вывести 2; если строку нельзя

преобразовать в число, то вывести 0. Считать, что дробная

часть вещественного числа отделяется от его целой части десятичной точкой ".".

+5

Ответы (1)

Знаете ответ?

Аксентий · Answer 1

var

s: string;

t: integer;

t1: real;

begin

readln (s) ;

if not (Integer. TryParse (s, t)) then

if not (Real. TryParse (s, t1)) then

t : = 0

else

t : = 2

else

t : = 1;

writeln (t) ;

end.