сосчитать кол-во букв й Й в строке, которую введешь

Question

Информатика

Мелеша

23 апреля, 12:26

сосчитать кол-во букв й Й в строке, которую введешь

+5

Ответы (1)

Знаете ответ на вопрос?

Флавий · Answer 1

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.