moji5
31st December 2009, 06:32 PM
دو عدد a وb را خوانده و انها را با یکدیگر مقایسه و سپس عدد بزرگتر را در aوعدد کوچک را در bذخیره و چاپ کند
Var
Temp , a,b : integer ;
Begin
Writeln ( ' please enter first number :' ) ;
Read (a) ;
Writeln ( ' please enter second number : ' ) ;
Read (b) ;
If (a<b) then
Begin
Temp := a ;
a := b ;
b := Temp ;
End
Writeln ( ' the biger number is a : ' , a);
Writeln ( ' the smaller number is b : ' , b) ;
End.
Var
Temp , a,b : integer ;
Begin
Writeln ( ' please enter first number :' ) ;
Read (a) ;
Writeln ( ' please enter second number : ' ) ;
Read (b) ;
If (a<b) then
Begin
Temp := a ;
a := b ;
b := Temp ;
End
Writeln ( ' the biger number is a : ' , a);
Writeln ( ' the smaller number is b : ' , b) ;
End.