Прилетели галки и стали садиться на палки. если на каждую палку сядет по галке, не хватит одной палки, а если на палку сядет по две галки, то одна палка останется лишней. сколько было палок и сколько галок?

Четыре галки три палки

Procedure tform1.button4click(sender: tobject); var buff: tnodepointer; x: titem; i,j: cardinal; begin   i: =0;   buff: =head;   if(buff^.next=nil) then   begin   showmessage('в стеке один элемент! ');   exit;   end; while buff < > nil do begin   while (buff^.next< > nil) and (buff^.data=buff^.next^.data) and not(isempty(buff)) do   begin   pop(buff^.next,x);   for j: =i to stringgrid1.rowcount-2 do     stringgrid1.cells[0,j]: =stringgrid1.cells[0,j+1];   stringgrid1.rowcount: =stringgrid1.rowcount-1;   end;   buff: =buff^.next;   i: =i+1; end; end; ps. delphi у меня сейчас нет, так что проверяйте сами. если что не так - сообщайте.

Для вставки рисунка из файла нужно выбрать команду “вставка”-> “рисунок”-> “из файла”. в диалоговом окне необходимо выбрать нужный файл. в раскрывающемся списке кнопки “вставить” имеется возможность выбора способа вставки рисунка: “вставить”, “связать”. по умолчанию word внедряет рисунки в документ (“вставить”). при внедрении объекта он становится частью документа. при этом изменение рисунка в исходном файле не приводит к изменению его в документе word. можно уменьшить размер файла путем связывания (“связать”). при этом изменение рисунка в исходном файле приводит к изменению его в документе word. рисунок можно вставить со сканера или камеры (команда “вставка”-> “рисунок”-> “со сканера или камеры”). word содержит большое количество встроенных рисунков. для их просмотра и вставки в документ нужно воспользоваться командой “вставка”-> “рисунок”-> “картинки”.