Можно. Смотри: Берем 5 л банку. --> выливаем в 1л, У нас остается в ведре 1 литр (6-5), 4 литра первой банке и 1 литр во второй банке. Мы сливаем из 2 банке в ведро. Теперь у нас в ведре 2 литра. из 1 банке(где осталось 4 литра) мы один литр сливаем во вторую банку. и из нее опять в ведро. Вот и получится, что в ведре 3 литра и в первой банке так же 3 литра
Program gt;
var n,q,s,k:integer;
begin
read(n);
s:=0;
k:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
s:=s+q;
k:=k+1;
end;
writeln(s,' ',k);
end.
<span>N=A+B+C-N
</span>Если N=A+B, то N=A+B+C-N=A+B+C-С=A+B, следовательно N=C
<span>N=A
IF N > В THEN N = В (это условие надо нарушить A<B)
IF N < C THEN N = C </span>(это условие надо сделать A<С)
A<B и A<С
<span>
Ответ: </span><span>в) А < В и А < С</span><span>
</span>
Var
i, n: integer;
a, s: real;
begin
readln(n);
a := 1;
s := a;
for i := 2 to n do
begin
a := a * -(i - 1) / i;
s := s + a;
end;
writeln(s:10:6);
end.