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

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

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.

Расширение файла, как правило, характеризует тип информации, содержащейся в файле;

Установите соответствие

I. Прикладное программное обеспечение - J. Офисные программы, G. Мультимедийные программы, A. Образовательные программы, F. Развлекательные программы

II. Системное программное обеспечение - B. Профессиональные программы, I. Операционные системы, H. Антивирусные программы, E. Программы обслуживания дисков, D. Архиваторы

III. Системы программирования - C. Паскаль, бейсик

Установите соответствие

I. Исполняемые программы - B. exe, com, bat, msi

II. Текстовые файлы - A. txt, rtf, doc

III. Графические файлы - F. bmp, gif, jpg, png, pds

IV. Web-страницы  - C. htm, html

V. Звуковые файлы - G. wav, mp3, midi, kar, ogg

VI. Видеофайлы - D. avi, mpeg

VII. Программы на языках  программирования  - E. bas, pas, cpp

1) 100=1×8 в первой степени +0×8 в нулевой степени +0×8 в минус первой степени =8+0+0=8=8×10=80
102=1×8 в первой степени +0×8 в нулевой степени +2×8 в минус первой степени =8+0+16=24
91=9×8 в первой степени +1×8 в нулевой степени =72+1=73
2)100=1×16 в первой степени +0×16 в нулевой степени +0×16 в минус первой степени =16+0+0=16
102=1×16 в первой степени +0×16 в нулевой степени +2×16 в минус первой степени =16+0+32=48
91=9×16 в первой степени +1×16 в нулевой степени =144+1=145
3)100=1×8 в первой степени +0×8 в нулевой степени +0×8 в минус первой степени =8+0+0=8=8×16=128
102=1×8 в первой степени +0×8 в нулевой степени +2×8 в минус первой степени =8+0+16=24=2×16+4×16=36
91=9×8 в первой степени +1×8 в нулевой степени =72+1=73=7×16+3×16=112+3=115