8 0 0
5 0 3
5 3 0
2 3 3
2 5 1
7 0 1
7 1 0
4 1 3
4 4 0
или нужно именно за 7 переливаний?
Как-то так...:Ъ
Var a,b,c,d,e:integer;
begin
read(a,b,c,d,e);
write(a+b+c+d+e);
end.
program odin; var a,b,sum,razn,proizv,chast:real;
begin
writeln('vvedite a');
readln (a);
writeln('vvedite b');
readln(b);
if (a<>0) and (b<>0) then begin writeln('summa=',a+b:0:0);
writeln('raznost=',a-b:0:0);
writeln('proizvedenie=',a*b:0:0);
writeln('chastnoe=',a/b:0:1);
end
else writeln ('chiso ravno 0');
end.
Каждый человек желает знать где берут мозоль