Программа: Количество одинаковых букв в слове

Задача: Определить сколько раз во введенном слове повторяется определенная буква (вводится с клавиатуры)

PROGRAM abcde;
	USES crt;
	VAR str,w,z: string; 
	    str1,i,str2:integer; 
	    str4:boolean;
BEGIN
	WriteLn('Введите слово: ');
	ReadLn(str);
	WriteLn('Введите букву: ');
	ReadLn(z);
	str2:=0;
	str4 := false;
	for i:=1 to length(str) do
	if str[i] = z 
	then 
	  begin 
	    str2:=str2+1; 
	    str4:= true; 
	  end;

	if str4 = true 
	then WriteLn('Букв ',z,' в слове ',str,' - ',str2) 
	else WriteLn('Буквы ',z,' в слове нет!');
END.

Просмотрело: 2249

Возможно, Вы искали: