Question

Всем привет! Помогите, пожалуйста, переписать программу с Python 3 на Pascal. В Python функция ceil(x) означает округление в большую сторону

Answer 1

Ответ:

program abc;

var n,m,k,b:integer;

begin

  readLn(n,m,k);

  if k mod m <> 0 then b:=Trunc(k/m)+1 else b:=k div m;

  if b mod 2<>0 then writeLn(b)

  else if b>=n then writeLn(b-1);

  if (b mod 2=0) and (b<>n) then writeLn(b+1);

end.

Объяснение: