Ответы
Ответ дал:
0
//Pascal ABC.NET v3.1 сборка 1217
Var
s,s1:string;
i:integer;
begin
readln(s);
var ars:=s.ToWords;
for i:=0 to ars.length-1 do
if lowcase(ars[i][1])<>lowcase(ars[i][length(ars[1])]) then s1:=s1+ars[i]+' ';
writeln(s1);
end.
Пример ввода:
Мама окно рама
Пример вывода:
Мама рама
Var
s,s1:string;
i:integer;
begin
readln(s);
var ars:=s.ToWords;
for i:=0 to ars.length-1 do
if lowcase(ars[i][1])<>lowcase(ars[i][length(ars[1])]) then s1:=s1+ars[i]+' ';
writeln(s1);
end.
Пример ввода:
Мама окно рама
Пример вывода:
Мама рама
Вас заинтересует
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад