Program zad1_11;
uses graphabc;
var i,j:integer;a:string;
begin
SetWindowSize(500,500);
ClearWindow(clBlack);
SetPenColor(clGray);
setbrushcolor(clwhite);
Line (150,150,175,125);
Line (200,150,175,125);
Line (150,150,150,300);
Line (200,150,200,200);
Line (200,200,300,200);
Line (350,150,325,125);
Line (300,150,325,125);
Line (300,150,300,200);
Line (350,150,350,300);
Line (150,300,350,300);
SetBrushColor(clwhite);
Rectangle(165,230,185,250);
Rectangle(225,230,245,250);
Rectangle(255,230,275,250);
Rectangle(165,165,185,185);
Rectangle(315,230,335,250);
Rectangle(315,165,335,185);
for i:=1 to 1000 do begin
floodfill(165,230,clblack);
floodfill(225,230,clblack);
floodfill(256,231,clblack);
floodfill(165,165,clblack);
floodfill(315,230,clblack);
floodfill(315,165,clblack);
end;
end.
Всё просто: 1) Ира варила варенье из крыжовника, значит ставим + ей в крыжовнике. 2) Ира и Оля варили варенье из разных ягод, зная что Ира делала из крыжовника, значит Оля не могла делать варенье из крыжовника, а из смородины могла. Ставим + Оле в смородине, а в крыжовнике -. 3) Таня и Ира варили варенье из разных ягод, тоже самое как и во 2 примере. Ставим + Тане в смородине, а в крыжовнике -. 4) Остаётся Юля, две девочки варили из смородины две из крыжовника, смело ставим + Юле в крыжовнике, а в смородине -.