Ольга , ответ добавлен 01.04.2018 в 02:43

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

 0   

Эльмира , ответ добавлен 01.04.2018 в 02:28

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

 0