Ответы на вопрос:
Program slovo; const symbols = [ ' ' , '; ' , ': ' , '-' , '? ' , '! ' , '.' , ',' ]; var s : string; i : byte; n : integer; begin writeln ( 'введите строку' ); readln (s ); for i : = 1 to length (s ) do begin if (s [i ] in symbols ) and not (s [i - 1 ] in symbols ) then n : =n + 1; end; writeln ( 'в строке ' ,n , ' слов' ); readln; end.
Популярно: Информатика
-
silenceeee16.11.2020 05:43
-
olleandro10.06.2020 21:55
-
dinara24078717.08.2021 23:44
-
Веттуня08.07.2022 17:57
-
МарияМяуМяу10.01.2023 10:50
-
mrjuck09.04.2020 09:31
-
Фея101126.03.2020 05:47
-
сергей94030.01.2023 11:00
-
Наркодилер07.10.2021 11:47
-
shtoshpulodov10.05.2021 09:33