Viết chương trình nhập vào hai số nguyên dương a và b. Máy hỏi tổng hai số là bao nhiêu? Nếu ta nhập đúng thì máy thông báo “Chúc mừng! Bạn đã tính đúng!” Nếu ta nhập sai thì máy thông báo “Rất tiếc! Bạn đã tính sai” và máy hiện kết quả đúng ra màn hình?
uses crt;
var a,b,s:longint;
begin
clrscr;
repeat
write(‘Nhap 2 so nguyen duong a,b: ‘);readln(a,b);
if (a<=0)and(b<=0) then writeln(‘NHAP LAI!’);
until (a>0)and(b>0);
write(‘Tong hai so la bao nhieu? Tong: ‘);readln(s);
if s=a+b then write(‘Chuc mung! Ban da tinh dung!’)
else write(‘Rat tiec! Ban da tinh sai. Ket qua: ‘,s);
readln
end.
Program chuongtrinh;
Uses crt;
Var a, b, tong: Integer;
Begin
Clrscr;
Write (‘Nhap gia tri cua so thu nhat: ’);
Readln (a);
Write (‘Nhap gia tri cua so thu hai: ’);
Readln (b);
Write (‘Ket qua 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.