Ответы на вопрос:
Program gt; var a: string; k,l,i,p: integer; begin readln(a); l: =length(a); k: =0; for i: =1 to l do begin p: =ord(a[i]); if(p> 191)and(p< 224)then a[i]: =chr(p+32); if(a[i]='ы')then k: =k+1; end; writeln(k); end.
Популярно: Информатика
-
Аrvin16.03.2020 02:38
-
agrdoon06.09.2020 04:09
-
vika833027.02.2021 11:30
-
giulia25030509.08.2021 03:35
-
dolgenco12317.08.2021 20:31
-
V1ctoriaF0X13.04.2020 14:07
-
Sandrohka08.11.2022 05:47
-
Stoianova198823.12.2022 13:46
-
onofon09.05.2022 14:18
-
Alilan124.09.2020 10:11