Напишите программу для подсчёта числа сочетаний "ку" в слове X.

@RoacH_JIL · Регистрация: 03.10.2012

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

@Puporev · 31.10.2012, 15:17

Pascal

1
2
3

k:=0;
for i:=1 to length(x)-1 do
if copy(x,i,2)='ку' then k:=k+1;

@RoacH_JIL · 31.10.2012, 15:17 **[ТС]**

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

Pascal

1
2
3

k:=0;
for i:=1 to length(x)-1 do
if copy(x,i,2)='ку' then k:=k+1;

а можно остальной код???

@masterpiece · 31.10.2012, 15:24

Pascal

Var x:String;
    i,k:byte;
Begin
    write('Введите слово: ');
    readln(x);
    k:=0;
   for i:=1 to length(x)-1 do
    if copy(x,i,2)='ку' then k:=k+1;
   write('Число сочетаний "ку": ',k);
    readln;
End.

@RoacH_JIL 1 / 1 / 0 Регистрация: 03.10.2012 Сообщений: 39
		1
	Напишите программу для подсчёта числа сочетаний "ку" в слове X. 31.10.2012, 14:47. Показов 1354. Ответов 3 Метки нет (Все метки) Напишите программу для подсчёта числа сочетаний "ку" в слове X. 0

	31.10.2012, 15:24

Опции темы