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

Question

Информатика

Наша

5 апреля, 11:09

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

+2

Ответы (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.