fork download
copy 
  1. program solitario;
  2. const max=10;
  3. var tab:array[-1..max+2,-1..max+2] of integer;
  4.     i,j,N,M,con_x:integer;
  5.     a : boolean;
  6.  
  7.  
  8. begin
  9. 	readln(N,M);
  10.  
  11. 	j:= trunc(N*M*11/20+1);
  12. 	writeln(j) ;	        
  13. end.
  14.  
Success #stdin #stdout 0s 5292KB
comments (?)
stdin
copy 
4 9
stdout
copy 
20
https://ideone.com/IBHTY8
language:
Pascal (fpc 3.0.4)
created:
8 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!