Var k,n,a:integer;
begin
readln(n, k);
a:=k;
while k<(n/3) do
begin
k:=k+1;
n:=n+1;
end;
writeln(k-a);
end.
Перевести этот код с PascalABC в Python 3

Viktor0707    3   04.03.2020 13:44    0