1. дано слово. удвоить в нем все буквы, стоящие на четных местах 2. составьте программу, определяющую, на какую букву заканчивается второе слово в предложении
113
123
Ответы на вопрос:
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]); {выдаем знак который находится перед пробелом}
Популярно: Информатика
-
IronGold11.09.2022 16:58
-
lera106631.07.2021 07:25
-
Айринчик17.01.2023 14:10
-
марго41922.07.2021 06:14
-
юлька43827.12.2020 09:23
-
ART66699906.11.2022 01:56
-
777sofia77721.07.2021 02:51
-
MainkraeTV05.09.2022 05:30
-
Oxicko23.06.2023 18:16
-
shenikov200324.05.2023 12:47