• Programming Languages

var n,i: byte; f: longint; begin readln(f); if f=0 then n:=1; for i:=2 to f do n := n*i; writeln(n); end.

pascal Live Demo Short URL - http://tpcg.io/5bfYCA

x := -3; y := 2; x := abs (x); y := sqr (y); x := x - y; writeln (‘x=’, x);

pascal Live Demo Short URL - http://tpcg.io/DTqYu8

5d05

pascal Live Demo Short URL - http://tpcg.io/bzE3uE

Compile and Execute Pascal Online

pascal Live Demo Short URL - http://tpcg.io/5Jhejo

Compile and Execute Pascal Online

pascal Live Demo Short URL - http://tpcg.io/4XbLwS

Compile and Execute Pascal Online

pascal Live Demo Short URL - http://tpcg.io/eFBges

Compile and Execute Pascal Online

pascal Live Demo Short URL - http://tpcg.io/4EA1KN

Compile and Execute Pascal Online

pascal Live Demo Short URL - http://tpcg.io/9nE8vU

Compile and Execute Pascal Online

pascal Live Demo Short URL - http://tpcg.io/BK1Z0s

Compile and Execute Pascal Online

pascal Live Demo Short URL - http://tpcg.io/DVp9N2
Previous 1 ... 57 58 59 60 61 ... 86 Next
Advertisements