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