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

Question

Информатика

Алека

3 января, 03:04

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

+4

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