Программа №4
Program str999;
Uses CRT;
Var
s: String;
Begin
Writeln('Введіте фразу');
read(s);
if (s='край озер') then
writeln ('Край озер лесов и рек');
if (s='Я учусь в школе') then
writeln ('Я учусь в 10-м классе')
end.
Var s:string;
i,ser,p2,c:integer;
begin
readln(s);
i:=length(s);
ser:= round(i/2);
p2:=ser+1;
for c:=p2 to i do
write (s[c]);
for c:=1 to ser do
write (s[c])
end.
Frac(x) возвращает дробную часть действительного числа x
Например, frac(2017.2018) = 0.2018
<span>28МАЯ
1. длина цепочки </span>28МАЯ (5) нечётна ⇒ 28АЯ ⇒ 39АЯ
2. длина цепочки 39АЯ (4) чётна ⇒ 139АЯ ⇒ 240АЯ
Ответ: утконос. Просто убирай все одинаковые буквы.