1. В 8-литровый налить и вылить из него в 3-хлитровый. Остаётся 5 литров. 2. Вылить из 3-хлитрового и в него снова влить из 8-милитрового. В 8-милитровом останется 2 (5-3=2). 3. Вылить все из 3-литрового и перелить в него 2 литра. 4. Наполнить 8-литровый и из него перелить в 3-хлитровый (1 литр). Итого в 8-милитровом останется 7 литров.
Program gt; var a,max,s:longint; begin a:=-1; max:=-100; s:=0; while a<>0 do begin read(a); if(a=max)then s:=s+1; if(a>max)then begin max:=a; s:=1; end; end; writeln(s); end.<span> </span>