// PascalABC.NET 3.1, сборка 1213 от 04.04.2016begin var s:=ReadlnString('>'); var x:=RegEx.Match(s,'([+-]?\d+\.?\d*([Ee][+-]?\d+)?)').ToString; if x.Length=0 then Writeln('Недопустимая запись числа') else if s=x then Writeln('Допустимая запись числа') else Writeln('Частично допустимая запись: ',x)end.
Тестовые примеры> .3464Частично допустимая запись: 3464> -345.534634E-12Допустимая запись числа> +34525352552Допустимая запись числа> +066464.33435e+34.4325Частично допустимая запись: +066464.33435e+34> 45434534,363Частично допустимая запись: 45434534> e342Частично допустимая запись: 342> ТутСпрятаноЧисло345.54МыЕгоНайдем!Частично допустимая запись: 345.54> А тут числа нетНедопустимая запись числа