Это сложно.
Но можно решить.
Через 5 мин отвечу.
Ну всё пока
Задача: У Водолея имеется две емкости А (7 л) и В (17 л). Необходимо отмерить 1 литр воды, чтобы он находился в 1) в емкости А 2) в емкости В
Ответ №1:
1. Налей в сосуд А
2. перелей из сосуда А в сосуд В
3. налей в сосуд А
4. перелей из сосуда А в сосуд В
5. налей в сосуд А
6. перелей из сосуда А в сосуд В
7. вылей из сосуда В
8. перелей из сосуда А в сосуд В
9. налей в сосуд А
10. перелей из сосуда А в сосуд В
11. налей в сосуд А
12. перелей из сосуда А в сосуд В
var N,i,a,p:integer;
BEGIN
readln(N);
p:=1;
for i:=1 to N do begin
read(a);
if (a>9) and (a<100) then
p:=p*a;
end;
writeln(p);
end.
Вот код для qbasic'a
SCREEN 12
cls
LINE (200, 200)-(350, 400), , B
LINE (200, 200)-(275, 100)
LINE (275, 100)-(350, 200)
CIRCLE (275, 160), 20
PAINT (275, 160)
LINE (250, 250)-(300, 300), , B
LINE (275, 250)-(275, 300)
LINE (250, 270)-(300, 270)
LINE (350, 400)-(355, 210), , B
LINE (350, 210)-(370, 200), , B
LINE (350, 400)-(400, 400)
LINE -(400, 380)
LINE -(380, 380)
LINE -(380, 360)
LINE -(355, 360)
LINE (325, 165)-(325, 100)
LINE -(310, 100)
LINE -(310, 145)