Rabu, 10 Oktober 2012

Aritmatika

Kasus Menampilkan Perhitungan :

5 + 2 : 7

5 - 2 : 3

5 * 2 : 10

5 div 2 : 2

5 mod 2 : 0

Program :

uses crt;

var

a:byte;

b:integer;

begin

clrscr;

a:=5;

b:=2;

writeln(a,'+',b,'=',a+b);

writeln(a,'-',b,'=',a-b);

writeln(a,'*',b,'=',a*b);

writeln(a,'div',b,'=',a div 2);

a:=b mod 3;

writeln(a,'mod',b,'=',a mod b);

readln;

end.