Ответы на вопрос:
Uses crt; var i,ans: integer; str: string; begin ans: =0; readln(str); for i: =1 to length(str) do if (str[i]='.') or (str[i]=',') or (str[i]='; ') or (str[i]=': ') or (str[i]='? ') or (str[i]='! ') then ans: =ans+1; writeln(ans); end.
Популярно: Информатика
-
annauskova2124.09.2020 05:13
-
Лелечка4312.03.2020 05:29
-
inara1234511.01.2021 20:43
-
pdv2015.04.2023 05:10
-
Помидоркин00111.01.2021 07:15
-
121e312r321427.04.2020 03:59
-
asdfghjkl6tygb20.11.2021 15:23
-
natalivkartoyqc3v12.07.2020 23:29
-
latypova0410.08.2020 02:08
-
tinahovsepyan27.11.2022 11:01