Написать программу, выясняющую, есть ли в слове X буква "а", стоящая на нечётном месте после буквы "к"

@Настёна_19 · Регистрация: 07.12.2009

@кот Бегемот · 16.12.2009, 14:12

Pascal

var
x:string;
i,f:integer;
begin
readln(x);
for i:=1 to length(x)do
if (i mod 2=0)and(a[i]='k')and(a[i+1]='a')then f:=1;
if f=1 then writeln('yes')else writeln('no');
end.

@Настёна_19 · 16.12.2009, 14:19 **[ТС]**

СПАСИБО большое...есть ещё задачка...

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

@кот Бегемот · 16.12.2009, 14:32

Сообщение от Настёна_19

СПАСИБО большое...есть ещё задачка...

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

Pascal

var
x:string;
i,s:integer;
begin
readln(x);
for i:=1 to length(x)do
if (a[i]='b')then s:=s+i;
writeln(s);
end.

@Настёна_19 · 16.12.2009, 14:37 **[ТС]**

она не считает сумму...

@кот Бегемот · 16.12.2009, 14:42

Какую букву вы ищете? Я писал для буквы b, если вам нужна русская буква в, замените b на в строке 7

@Настёна_19 · 16.12.2009, 14:46 **[ТС]**

заменяла,
программа всё равно пишет 0...

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

@кот Бегемот · 16.12.2009, 14:48

Привычка дурная называть всё буквой а.
Замените в 7 строке а на х

Pascal

1	if (x[i]='b')then s:=s+i;

@Настёна_19 · 16.12.2009, 14:49 **[ТС]**

СПАСИБО!!!!

Добавлено через 12 секунд

@Настёна_19 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 50
		1
	Написать программу, выясняющую, есть ли в слове X буква "а", стоящая на нечётном месте после буквы "к" 16.12.2009, 14:05. Просмотров 1346. Ответов 8 Метки нет (Все метки) Написать программу, выясняющую, есть ли в слове X буква "а", стоящая на нечётном месте после буквы "к" 0

@Настёна_19 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 50
	16.12.2009, 14:19 [ТС]	3
	СПАСИБО большое...есть ещё задачка... написать программу для подсчёта суммы мест, на которых в слове X стоит буква "в" 0

@Настёна_19 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 50
	16.12.2009, 14:37 [ТС]	5
	она не считает сумму... 0

@кот Бегемот Платежеспособный зверь 8736 / 4154 / 1604 Регистрация: 28.10.2009 Сообщений: 11,227
	16.12.2009, 14:42	6
	Какую букву вы ищете? Я писал для буквы b, если вам нужна русская буква в, замените b на в строке 7 1

@Настёна_19 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 50
	16.12.2009, 14:46 [ТС]	7
	заменяла, программа всё равно пишет 0... Добавлено через 2 минуты 0

@Настёна_19 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 50
	16.12.2009, 14:49 [ТС]	9
	СПАСИБО!!!! Добавлено через 12 секунд 0

Опции темы