ONLINE COMPILERS
LIBRARY
MANUAL PAGES & DOCS
CONTACT
Latest Users' Questions
User Submitted Source Code!
Description:
ghg
Language: PASCAL
Code:
ghg
Language: PASCAL
Code:
Program tong_hai_so;
Uses crt;
var a,b,tong :Integer;
Begin
Clrscr;
Write (‘Hay nhap so thu nhat: ’);
Readln (a);
Write (‘Hay nhap so thu hai: ’);
Readln (b);
Write (‘Tong ban tinh duoc la: ’);
Readln (tong);
If tong=a+b then writeln (‘Chuc mung! Ban da tinh dung!’)
else writeln (‘Rat tiec! Ban da tinh sai!’, Tong =a+b);
Readln;
End.
Uses crt;
var a,b,tong :Integer;
Begin
Clrscr;
Write (‘Hay nhap so thu nhat: ’);
Readln (a);
Write (‘Hay nhap so thu hai: ’);
Readln (b);
Write (‘Tong ban tinh duoc la: ’);
Readln (tong);
If tong=a+b then writeln (‘Chuc mung! Ban da tinh dung!’)
else writeln (‘Rat tiec! Ban da tinh sai!’, Tong =a+b);
Readln;
End.
Comments: