Var s:string; a,o,i:integer; begin readln(s); for i:=1 to length(s) do begin if s[i]='а' or s[i]='a' then a:=a+1; //для английских и русских букв if s[i]='о' or s[i]='o' then o:=o+1; end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
