Перевести на питон 1 программа var n, m, k : int64; begin readln(k, t); t : = t mod (2*k); if t< =k then writeln(t) else writeln(2*k-t); end. 2 программа var a, b, c, n, x, y, z, d : int64; begin readln(a, b, c, n); d : = (a+b+c+n) div 4; if (a> 2*d) or (b> d) or (c> d) then writeln(0) else begin writeln(2*d-a); writeln(d-b); writeln(d-c) end; end. третья программа var a, b, n, k : integer; begin readln(n); k: =0; a: =0; while (k=0) and (a< =n div 3) do begin b: =0; while (k=0) and (b< =n div 5) do begin if 3*a+5*b=n then begin writeln(a, ' ', b); k: =k+1; end; b: =b+1 end; a: =a+1 end; if k=0 then writeln('impossible'); end. четвертая программа var d, c : string; k: integer; begin readln(d); k: =length(d); c : = copy(d, k-1, 2); delete(d, k-1, 2); if c< > '00' then begin k: =length(d); while (k> 0)and(d[k]='9') do begin d[k]: ='0'; k: =k-1 end; if k=0 then d: ='1'+d else d[k]: =succ(d[k]) end; writeln(d) end.