fork download
copy 
  1. program biglietti;
  2. var N,M,A,B,numbiciconlucc,numbicisenzalucc:integer;
  3.     spesa:longint;
  4. begin
  5.    (*assign(input, 'input.txt'); reset(input);
  6.    assign(output, 'output.txt'); rewrite(output);*)
  7.    readln (N,M,A,B);
  8.    if (A*M)<=B then spesa:=A*N
  9. 	       else 
  10. 	         begin
  11. 	           numbiciconlucc:=N div M;
  12. 	           numbicisenzalucc:= N mod M;
  13. 	           if (numbiciconlucc+1)*B<=numbiciconlucc*B+numbicisenzalucc*A then spesa:=(numbiciconlucc +1)*B
  14. 	                                                                 else  spesa:=numbiciconlucc*B+numbicisenzalucc*A;
  15. 	         end;
  16. 	writeln(spesa);               
  17. end.
Success #stdin #stdout 0s 5300KB
comments (?)
stdin
copy 
10 10 150 1700
stdout
copy 
1500
https://ideone.com/yup6IF
language:
Pascal (fpc 3.0.4)
created:
10 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!