Question

Найти количество целых решений, удовлетворяющих неравенству: a < b*x + c ≤ d. формат входных данных: в единственной строке заданы четыре целых числа: a, b, c и d (0 ≤ a, b, c, d ≤ 1018, b ≠ 0). формат выходных данных: выведите одно число – количество целых решений данного неравенства. пример input.txt output.txt 1 1 0 5 4 5 2 3 9 2

Answer 1

program sum(input,output); 
 var a,b,c,d,p,o:int64;
begin
  assign(input,'input.txt');
  reset(input);
  assign(output,'output.txt');
  rewrite(output);
  readln(a,b,c,d);
 if b>c then begin
  p:=((b*c)+d-a);
 writeln(p);
 end
 else if c>b then
begin
o:=((b*c)+a-d);
  writeln(o);
 end;
  close(input);
   close(output);
 end.