Var
s:String;
i:Integer;
Begin
Read(s);
for i:=1 to length(s) do
begin
if (i mod 2=0) then Delete(s,i,1);
end;
Writeln(s);
end.
Program n1;
var s,s1,s2: string;
function max(a,b,c: integer): integer;
begin
max:=0;
if (a>b) and (a>c) then max:=a else
if (b>c) and (b>a) then max:=b else
if (c>a) and (c>b) then max:=c;
end;
begin
readln(s);
readln(s1);
readln(s2);
write(max(length(s),length(s1),length(s2)));
end.
1)
x^3 >= 30
методом подбора
3^3 = 27
4^3 = 64 уже достаточно
ответ 4
2) сумма из трех длин 2^4+2^5+2^6 = 112
Указательные (координатные) устройства
С относительным указанием позиции (перемещения)
Мышь
Трекбол
Трекпоинт
Тачпад
Джойстик
Видеокамера
С возможностью указания абсолютной позиции
Графический планшет
Световое перо
Аналоговый джойстик
Клавиатура