Напишите программу для подсчёта числа букв "у" в слове Х, стоящих на нечётных местах

@pro_100_den · Регистрация: 17.10.2011

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

Напишите программу для подсчёта числа букв "у" в слове Х, стоящих на нечётных местах.

@CodeR · 11.09.2012, 20:07

Pascal

Var x:String;
    i,k:byte;
Begin
    write('Введите слово: ');readln(x);
    k:=0;
    For i:=1 to Length(x) do
     if (x[i]='y')and(i mod 2 <> 0) then inc(k);
    if k>0 then writeln('Букв "y" стоящих на нечетных местах: ',k)
     else writeln('Букв "y" стоящих на нечетных местах нет');
    readln;
End.

@Gomorra · 03.05.2013, 18:54

Можете помочь с схожим заданием ?

Напишите программу для подсчета числа букв "о", стоящих после буквы "л" в слове X.

@CodeR · 04.05.2013, 14:20

Сообщение от Gomorra

Можете помочь с схожим заданием ?
Напишите программу для подсчета числа букв "о", стоящих после буквы "л" в слове X.

Pascal

Var x:String;
    i,k,ik:byte;
Begin
    write('Введите слово: ');readln(x);
    k:=0;
    For i:=1 to Length(x) do
     if x[i]='л' then 
     Begin
       ik:=i;
       break;
     End;
    if ik>0 then
     For i:=ik to Length(x) do
      if x[i]='о' then inc(k);
    if k>0 then writeln('Букв "о",стоящих после буквы "л": ',k)
     else writeln('Букв "о",стоящих после буквы "л" нету или нету буквы "л"');
    readln;
End.

@frosamara · 01.04.2014, 21:10

Здравствуйте. Делала похожее задание, но возникла одна проблема. Задача: составить программу подсчета числа букв "к" и "л" в слове Х.
Я написала код на подсчет кол-ва одной буквы:

Pascal

var i,cnt:integer; s:string;
begin
writeln ('vvedite slovo');
readln(s);
for i:=1 to length(s) do
if s[i] = 'k' then inc(cnt);
writeln('bykva povtoryaetsa ',cnt,' raz');
end.

Подскажите пожалуйста как добавить цикл чтобы одновременно искались две нужные буквы в слове и считалось их кол-во?
Заранее спасибо.

@Cyborg Drone · 01.04.2014, 21:51

Так

Pascal

1 2	if s[i] = 'к' then inc(cnt); if s[i] = 'л' then inc(cnt);

или так

Pascal

1	if s[i] in ['к', 'л' then inc(cnt);

Добавлено через 3 минуты

Комментарий модератора

Прекращаем писать свои вопросы в чужие темы, пусть они даже и очень похожие. Это нарушение правил форума, и затрудняет поиск ответа. Вопросы в теме задаются только по теме, для своих вопросов создавайте свои темы.

@frosamara · 02.04.2014, 22:17

это понятно, спасибо, а как записать чтобы программа выводила кол-во повторов буквы "к" и "л" в одной строке? скажем через запятую

p.s. простите за некорректно созданную тему..

@APALoff · 03.04.2014, 11:53

Сообщение от frosamara

p.s. простите за некорректно созданную тему..

В том то и дело, что ЭТУ тему создали совсем не Вы!
На что Вам четко указали:

Сообщение от Cyborg Drone

Прекращаем писать свои вопросы в чужие темы

Но Вы опять это проигнорировали!

@pro_100_den 23 / 23 / 2 Регистрация: 17.10.2011 Сообщений: 173
		1
	Напишите программу для подсчёта числа букв "у" в слове Х, стоящих на нечётных местах 11.09.2012, 19:48. Показов 3766. Ответов 7 Метки нет (Все метки) Напишите программу для подсчёта числа букв "у" в слове Х, стоящих на нечётных местах. 0

@Gomorra 0 / 0 / 2 Регистрация: 29.04.2013 Сообщений: 52
	03.05.2013, 18:54	3
	Можете помочь с схожим заданием ? Напишите программу для подсчета числа букв "о", стоящих после буквы "л" в слове X. 0

@frosamara 0 / 0 / 0 Регистрация: 01.04.2014 Сообщений: 4
	02.04.2014, 22:17	7
	это понятно, спасибо, а как записать чтобы программа выводила кол-во повторов буквы "к" и "л" в одной строке? скажем через запятую p.s. простите за некорректно созданную тему.. 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	03.04.2014, 11:53	8
	Сообщение от frosamara p.s. простите за некорректно созданную тему.. В том то и дело, что ЭТУ тему создали совсем не Вы! На что Вам четко указали: Сообщение от Cyborg Drone Прекращаем писать свои вопросы в чужие темы Но Вы опять это проигнорировали! 0