Viết chương trình in ra màn hình 2 biến a và b thuộc kiểu số thực. Nếu a là số dương thì tính tổng a+b , ngược lại tính tích a*b
Viết chương trình in ra màn hình 2 biến a và b thuộc kiểu số thực. Nếu a là số dương thì tính tổng a+b , ngược lại tính tích a*b
program btsydn;
uses crt;
var a, b: real;
begin
clrscr;
write(‘Nhap a = ‘); readln(a);
write(‘Nhap b = ‘); readln(b);
if a>0 then write(‘Tong = ‘, a+b) else write(‘Tich = ‘, a*b);
readln
end.
đây bạn