Question

Составьте программу , определяющую , является ли введенное слово числом. Pascal.

Answer 1

Var s: string; I,n,k,L:longint; Begin Readln(s); L:=length(s); If s[1]<>'-' then begin For i:=1 to L do If s[i] in ['1'...'9'] or (s[i]='.' and s[i+1]<>'.') then inc(k); If k<>L then writeln('слово') else writeln('число'); End else begin For i:=2 to L do If (s[i] in ['1'...'9']) or (s[i]='.' and s[i+1]<>'.')then inc(k); If k<>(L-1) then writeln('слово') else writeln('число'); End; End.

Answer 2

PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var r:real;
  real.TryParse(ReadlnString,r).Println
end.

Примеры
-345.432
True

+253432
True

1.52e-14
True

15,3
False