Наливаешь в 3-х литровую, переливаешь в 5, опять в 3-литровую, и опять в 5-ти, в трех литровой остается 1 литр. из пятилитровой выливаешь в 8-литровую назад, из 3- литровой переливаешь оставшийся литр в 5-литровую и еще раз полную трех литровую, у тебя в 8-литровой останется 4 литра и в 5-литровой тоже
Ответ дал: Гость
uses graph; {подключен модуль graph}var x,y,h: integer; procedure grinit; {процедура инициализации режима графики}var graphdriver: integer; {для графического адаптера} graphmode : integer; {для графического режима} errorcode : integer; {для кода ошибки}begin graphdriver : =detect; {режим автоопределения} initgraph(graphdriver ,graphmode,''); {инициализация} errorcode : =graphresult; {результат инициализации} if errorcode < > grok then {если не успешно,} begin writeln('ошибка графики: ',grapherrormsg(errorcode )); writeln('программа остановлена.'); halt(1) end {if}end; begin grinit; {вызов инициализации} x: =getmaxx div 2; y: =getmaxy div 2; h: = 30; {кол-во шагов до финиша} while x+y> 0 do begin cleardevice; circle(x, y, 10); delay(100); x: = x + getmaxx div h; y: = y - getmaxy div h; end; readln; {пауза до нажатия } closegraph; {закрытие графического режима}end.
Популярные вопросы