Nguyễn Thuỳ Linh
Hỏi từ APP VIETJACK
Viết chương trình tính:
Nếu a>b tính a-b
Nếu a<b tính a+b
Nếu a>b tính a-b
Nếu a<b tính a+b
Quảng cáo
1 câu trả lời 269
uses crt;
var a, b, T: real;
begin
clrscr;
write ('Nhap a='); readln(a);
write ('Nhap b='); readln(b);
if (a>b) then T:= a-b else T:= a+b;
write ('Ket qua=',T:6:2);
readln;
end.
var a, b, T: real;
begin
clrscr;
write ('Nhap a='); readln(a);
write ('Nhap b='); readln(b);
if (a>b) then T:= a-b else T:= a+b;
write ('Ket qua=',T:6:2);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86376
Gửi báo cáo thành công!
