Проверить какая из букв или встречается чаще

@Golandets · Регистрация: 03.11.2016

Author24 — интернет-сервис помощи студентам

Задан текст. Проверить какая из букв ‘k’ или ‘w’ встречается чаще.
Помогите пожалуйста. Зарание спасибо

@cfbogd · 01.12.2016, 22:40

Golandets, программа чувствительна к реестру.

Pascal

var countk,countw,i:integer;
s:string;
begin
Writeln('Введите текст:');
readln(s);
for i:=1 to length(s) do
if s[i]='k' then inc(countk) else
if s[i]='w' then inc(countw);
if countk>countw then writeln('В тексте букв "k" больше чем букв "w", количество букв "k" = ',countk);
if countk<countw then writeln('В тексте букв "w" больше чем букв "k", количество букв "w" = ',countw);
if countk=countw then writeln('В тексте количество букв "k" равно количеству символов "w", количество букв "k" и "w" = ',countk);
end.

@Golandets 0 / 0 / 0 Регистрация: 03.11.2016 Сообщений: 17
		1
	Проверить какая из букв или встречается чаще 01.12.2016, 16:13. Показов 2356. Ответов 1 Метки нет (Все метки) Задан текст. Проверить какая из букв ‘k’ или ‘w’ встречается чаще. Помогите пожалуйста. Зарание спасибо 0

	01.12.2016, 22:40

Проверить какая из букв или встречается чаще

Решение