50 . построить блок-схему алгоритма для вычисления значения функции y по формуле

уже было такое.. иногда пользуйтесь поиском чтоль.

1) полностью наполнить 5 литровый бидон  2)из 5 литровой в 3х литровую переливаем масло( в 5 литровой остаётся 2)  3)3х литровую в общую ёмкость  4) из 5 литровой в 3х литровую переливаем оставшиеся 2 литра из 5 литровой  5) доверху наполняем 5 литровую  6) из 5 литровой доверху наполняем 3х литровую  7) из трёхлитровой переливаем всё в бидон, в 5ти литровой осталось 4

 

пишем бидоны(их кол-во), затем проделываем вот что:   8 5 3  8 0 0  3 5 0  3 2 3  6 2 0  6 0 2  1 5 2  1 4 3  4 4 0  ну то есть разливали масло по каждому бидону, пока не получится результат

 

или так

 

1. из 8 в 3 (там останется 5)  2. из 3 в 5  3. из 8 в 3 (там останется 2)  4. из 3 в 5 долить 2 (остается 1)  5. из 5 в 8 (там стало 7)  6. из 3 в 5  7. из 8 в 3 (там стало 4)  8. из 3 в 5 (там тоже стало 4)

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию uses graphabc; const       kegl = 40; var       space, line: integer; procedure m(cx, cy: integer); begin       moveto(cx, cy);       lineto(cx, cy - kegl );       lineto(cx + kegl div 2, cy);       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy); end; procedure i(cx, cy: integer); begin       moveto(cx, cy - kegl);       lineto(cx, cy );       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy); end; procedure r(cx, cy: integer); begin       moveto(cx, cy);       lineto(cx, cy - kegl);       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy - kegl div 2);       lineto(cx, cy - kegl div 2); end; begin       space : = kegl div 2;             setwindowsize(4 * space + 3 * kegl, 4 * space + 3 * kegl );             line : = space + kegl;       m(space, line );       i(2 * space + kegl, line );       r(3 * space + 2 * kegl, line );             line : = 2 * space + 2 * kegl;       r(space, line );       i(2 * space + kegl, line );       m(3 * space + 2 * kegl, line );             line : = 3 * space + 3 * kegl;       m(space, line );       i(2 * space + kegl, line );       m(3 * space + 2 * kegl, line ); end.