fork download
copy 
  1. program ideone;
  2. var
  3. 	a,b : integer;
  4. 	S,x : real;
  5. begin
  6. 	writeln('a,b,x=?');
  7. 	readln(a,b,x);
  8. 	S:=((3/4*160-b)*1/2*x)+((1/4*160-a)*x);
  9. 	writeln('S=',S:0:2);
  10. end.
Success #stdin #stdout 0s 4372KB
comments (?)
stdin
copy 
12
3
25743
stdout
copy 
a,b,x=?
S=2226769.50
https://ideone.com/Gr4NMd
language:
Pascal (gpc 20070904)
created:
4 years 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!