Ответы
Ответ дал:
0
var
s : string;
begin
read(s);
for var i := 1 to s.Length div 3 do insert('.', s, i*4);
writeln(s);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад