program slova;
uses crt;
var s1,s2: string;
i,k: integer;
begin
clrscr;
s2: ='';
write('введите слово: ');
readln(s1);
k: =length(s1);
for i: =1 to k do
if (i mod 2)=0 then s2: =s2+s1[i];
writeln('полученное слово: ',s2);
readkey;
end.
1) делим 26 бриллиантов на 2 групы по 13 бриллиантов и взвешиваем на весах. та группа, которая тяжелее, включает в себя настоящий бриллиант.
эту группу делим на две по 6, 1 бриллиант откладываем, и взвешиваем. если эти группы по 6 равны по массе, то этот отложенный 1 бриллиант и есть настоящий. если же нет, то берем группу с наибольшим весом.
делим эту группу на две по 3 бриллианта в каждой, взвешиваем. та группа которая тяжелее, содержит настоящий риллиант. берем ее.
берем из этой группы 2 бриллианта и взвешиваем их. если они равны по массе, но настоящий бриллиант 3. если же нет, то настоящий бриллиант тот, что тяжелее.
2) эти 4 детали делим на группу по 2 детали в каждой. работаем с первой группой.
эти две детали из 1 группы взвешиваем на весах, если они равны по массе, то это обычные одинаковые детали. тогда приступаем ко второй группе. берем детальку из второй группы и взвешиваем с деталькой из первой группы, если они равны, то отличающаяся деталь - это вторая делать из группы 2. если же нет, то отличаюящая деталь это первая деталь из группы два.
возвращаемся к первой группе. (мы не рассмотрели случай, где детали из первой группы не будут равны по массе). так вот. в этом случае, берем деталь из первой группы и взвешиваем с деталью со второй группы, если они равны, то отличающаяся деталь - вторая деталь из группы 1. если же нет, то отличающаяся деталь - первая деталь из группы 1.
надеюсь ты поняла ход моих мыслей: d
удачи на контрольной!
Поделитесь своими знаниями, ответьте на вопрос: