fork download 
  1. program typst;
  2. var D,X,N,S :longint;
  3.  
  4. function compila(var a: longint; var b: longint;var c: longint; var d: longint): longint;
  5. var eliminati:longint;
  6.   begin
  7.     if (c*d)>(a-b) then begin  if  ((c*d) - (a-b)) mod d = 0 then eliminati:=((c*d) - (a-b)) div d
  8.                                                              else eliminati:=((c*d) - (a-b)) div d +1 end
  9.                    else eliminati:=0;
  10.     compila:=eliminati;               
  11.   end;  
  12.  
  13. begin
  14. 	readln(D,X,N,S);
  15. 	writeln(compila(D, X, N, S));
  16. end.
Success #stdin #stdout 0s 5292KB
comments (?)
stdin 
30 20 6 5
stdout 
4
https://ideone.com/GDKbXW
language:
Pascal (fpc 3.0.4)
created:
4 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!