Составьте программу , определяющую , является ли введенное слово числом. pascal.
271
430
Ответы на вопрос:
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.
Популярно: Информатика
-
ната581020.03.2023 15:54
-
doc293417.09.2020 01:40
-
Nanami33405.09.2020 04:55
-
Nastasia13z13.07.2022 00:27
-
Olga75aella16.02.2021 23:59
-
Gilirop7722.07.2022 16:17
-
dasika113.03.2020 19:07
-
FWEAAFE27.01.2020 10:06
-
ANGELINA69Z22.02.2023 07:29
-
mariyavlasova225.05.2022 17:01