1. дано слово. удвоить в нем все буквы, стоящие на четных местах

2. составьте программу, определяющую, на какую букву заканчивается второе слово в предложении

1

Ответы и объяснения

2012-02-15T18:19:04+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

for i := 1 to length(s) do

begin

    res := res + s[i];

    if i mod 2 = 0 then

       res := res + s[i];

end;

writeln(res);

 

 

i := Pos(" ",s);{ищем первый пробел}

Delete(s;i;1);{удаляем первый пробел}

i := Pos(" ",s);{ищем второй пробел, котрый теперь первый}

writeln(s[i-1]);{выдаем знак который находится перед пробелом}