Подсчитать сколько раз встречается буква "а" и буква "с" в строке и сделать вывод.

@Neutral · Регистрация: 01.06.2010

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

@AnDrew_LP · 02.06.2010, 16:06

Pascal

var
 s:string;
 i,a,c:byte;
begin
 Writeln('Vvedite stroku');
 readln(s);
 a:=0;
 c:=0;
for i:=1 to length(s) do
  if copy(s,i,1)='a' then inc(a)
                     else if copy(s,i,1)='c' then inc(c);
if a>c then writeln('True') else Writeln('False');
readln;
end.

@STGE · 02.06.2010, 16:08

Можно и так:

Pascal

var
 s:string;
 i,a,c:byte;
begin
 Writeln('Vvedite stroku');
 readln(s);
 a:=0;
 c:=0;
for i:=1 to length(s) do
  if s[i]='a' then inc(a)
               else if s[i]='c' then inc(c);
if a>c then writeln('True') else Writeln('False');
readln;
end.

@Neutral 0 / 0 / 0 Регистрация: 01.06.2010 Сообщений: 7
		1
	Подсчитать сколько раз встречается буква "а" и буква "с" в строке и сделать вывод. 02.06.2010, 15:51. Показов 3308. Ответов 2 Метки нет (Все метки) Пользователем задана строка. Подсчитать сколько раз встречается буква "а" и буква "с", если чаще встречается буква "а", значит вывести на экран вырвжение "true" иначе вывести на экран выражение "false" 0

Опции темы

Подсчитать сколько раз встречается буква "а" и буква "с" в строке и сделать вывод.

Решение