a=input()
for i in range(len(list(a))-1):
print(a[i],end="*")
print(a[i+1])
<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('>');
s:=s.Replace('ДЕТЕКТИВ','РОМАН'); s.Println
end.
<u>Примеры</u>
> ДЕТЕКТИВ БЕЗ ПОГОНИ - ЭТО НЕ ДЕТЕКТИВ
РОМАН БЕЗ ПОГОНИ - ЭТО НЕ РОМАН
> НЕ МОГУ ЗАСНУТЬ БЕЗ ДЕТЕКТИВА
НЕ МОГУ ЗАСНУТЬ БЕЗ РОМАНА
Хмм... Про кодировку ни слова, так что, надеюсь, это не Unicode.
На один символ обычно в таких задачах отводится 1 байт.
значит 80 символов = 80 байт.
в 30 строках 30* 80 байт = 2400 байт.
на каждой странице по 30 строк, а страниц 6, значит 6 * 2400 байт = 14 400 байт
Держи. Код на С++,могу переделать под Паскаль.