Пусть дан русский текст, слова которого разделены пробелами, запятой или точкой. Все слова оканчивающиеся на -онок или -енок , представьте во множественном числе.
Ответы
Ответ дал:
0
var
t,m:string;
i:integer;
begin
readln(t);
m:='нки';
for i:=1 to length(t) do
begin
if ((t[i]=' ') or (t[i]=',') or (t[i]='.'))
and((copy(t,i-4,4)='онок') or (copy(t,i-4,4)='енок'))
then
begin
delete(t,i-3,3);
insert(m,t,i-3);
end;
end;
writeln(t)
end.
t,m:string;
i:integer;
begin
readln(t);
m:='нки';
for i:=1 to length(t) do
begin
if ((t[i]=' ') or (t[i]=',') or (t[i]='.'))
and((copy(t,i-4,4)='онок') or (copy(t,i-4,4)='енок'))
then
begin
delete(t,i-3,3);
insert(m,t,i-3);
end;
end;
writeln(t)
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад