Ответы на вопрос:
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.
Популярно: Информатика
-
shodruz2807199822.11.2021 03:48
-
ВикторикаРоэн08.09.2020 01:40
-
Егор111ив19.05.2022 01:01
-
megaandreychuk14.03.2020 05:09
-
arinapes3023.12.2022 23:26
-
vladimer9601.01.2020 23:27
-
Angelina93701.09.2021 22:38
-
254745628.11.2021 04:20
-
nikonorowakate14.08.2020 14:05
-
gulitenko05.07.2021 19:44