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

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

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

@CodeR · 11.09.2012, 20:11

Pascal

Var x:String;
    i:byte;
    b:boolean;
Begin
    write('Введите слово: ');readln(x);
    b:=false;
    For i:=1 to Length(x)-1 do
     if (x[i]='к')and(i mod 2 = 0 )and(x[i+1]='и') then b:=true;
    writeln(b); 
End.

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

Опции темы

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

Решение