Программа: Определение процентного содержания буквы в предложении

Задача: Дано предложение. Определить процентное содержание в нем введеной буквы

PROGRAM slovoprocent;
	USES crt;
	var str,a,b :string; 
		pr,str2 :real; 
		i		:integer;
BEGIN
	WriteLn('Введите любое слово: ');
	ReadLn(str);
	WriteLn('Введите букву: ');
	ReadLn(b);
	for i:=1 to length(str) do
	if str[i] = b 
    then
	  begin
		str2:=str2+1;
	  end;
	pr:=100 / str2;
	WriteLn(pr,'%');
END.

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

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