Пользователем задана строка. Подсчитать сколько раз встречается буква «а» и буква «с», если чаще встречается буква «а», значит вывести на экран выраж

@Машенькаа · Регистрация: 03.06.2012

Пользователем задана строка. Подсчитать сколько раз встречается буква «а» и буква «с», если чаще встречается буква «а», значит вывести на экран выражение «true» иначе вывести на экран выражение «false».

@UserABC · 06.06.2012, 22:27

Строку введем с клавиатуры, хотя если хотите присвойте ей значение в начале программы.
Код:

Pascal

program userabc;
 uses crt;
 var f:boolean;
     s:string;
     k,i,k1:byte;
begin
f:=true;
write('ââåäèòå ñòðîêó íà ýêðàí: ');
readln(s);
for i:=1 to length(s) do
begin
if s[i]='à' then inc(k);
if s[i]='ñ' then inc(k1);
end;
if k>k1 then writeln(f) else writeln(not f);
end.

@Машенькаа · 06.06.2012, 22:28 **[ТС]**

спасибо)

@Машенькаа 0 / 0 / 0 Регистрация: 03.06.2012 Сообщений: 30
		1
	Пользователем задана строка. Подсчитать сколько раз встречается буква «а» и буква «с», если чаще встречается буква «а», значит вывести на экран выраж 06.06.2012, 22:00. Показов 4303. Ответов 2 Метки нет (Все метки) Пользователем задана строка. Подсчитать сколько раз встречается буква «а» и буква «с», если чаще встречается буква «а», значит вывести на экран выражение «true» иначе вывести на экран выражение «false». 0

@Машенькаа 0 / 0 / 0 Регистрация: 03.06.2012 Сообщений: 30
	06.06.2012, 22:28 [ТС]	3
	спасибо) 0

Опции темы

Пользователем задана строка. Подсчитать сколько раз встречается буква «а» и буква «с», если чаще встречается буква «а», значит вывести на экран выраж

Решение