Кодировка слова

[arnold]

В слово корова после каждой второй буквы вставляется 'быр', не пойму как она работает. Объясните пошагово

VAR 	s 	:String;
		i 	:Integer;
BEGIN
	s:='Коpова';
	for i:=1 to Length(s) div 2 do begin  	{Length(s) div 2 - это число паp букв в слове}
		Write(s[2*i-1],s[2*i]);					{Печатаем очеpедную паpу букв}
		Write('быp');
	end{for};
													{Допечатываем последнюю нечетную букву, если она есть:}
	if Length(s) mod 2 = 1 then Write(s[Length(s)]);
	ReadLn
END.

особенно не понятно for i:=1 to Length(s) div 2 do begin , какая следующая i тут? Write(s[2*i-1],s[2*i])

[s-andriano]

Мне кажется, если бы Вы хоты бя попытались что-то почитать о циклах в Паскале, то знали бы, что цикл for может иметь шаг только либо 1 либо -1.

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

[arnold]

Сообщение от s-andriano

Мне кажется, если бы Вы хоты бя попытались что-то почитать о циклах в Паскале, то знали бы, что цикл for может иметь шаг только либо 1 либо -1.

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

Для чего эта строка? for i:=1 to Length(s) div 2 do begin . Здесь i от 1 и до?

[s-andriano]

Повторяю: Вам следует почитать учебник.
Хотя бы чуть-чуть.

[arnold]

спасибо все понял

[Алексей_2012]

Давайте разбираться

VAR 	s 	:String;
		i 	:Integer;
BEGIN
	s:='Коpова';         присваиваем строке s слово 
	for i:=1 to Length(s) div 2 do  {цикл от 1 до длины символов строки s, т.е в данном случае в строке s 6 символов}
{div 2 применяется когда надо разделить целое число без остатка у нас делится на 2}

{begin-это пишется если в цикле более одной команды (скзал упрощенно)}
begin  	
		Write(s[2*i-1],s[2*i]);					{Печатаем очеpедную паpу букв}
		Write('быp');
	end{for};
													{Допечатываем последнюю нечетную букву, если она есть:}
	if Length(s) mod 2 = 1 then Write(s[Length(s)]); {mod возвращает остаток от деления, т.е если 5 например разделить на 2, то в остатке будет 1}
	ReadLn{ENTER для прекращения работы}
END.

Если помог-жмите весы, если нет, то жду еще вопросов