Ответ: 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.
Источник znanija.site
Ответ: 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.
Источник znanija.site