Viết đoạn lệnh tìm giá trị lớn nhất của 3 số a, b, c. Mong mọi người giúp đỡ
1 câu trả lời
program max;
uses crt;
var a, b, c: integer;
begin
clrscr;
write(' nhap so a :'); readln(a);
write(' nhap so b :'); readln(b);
write(' nhap so c :'); readln(c);
if (a>b) and (a>c) then writeln('a =', a,' la so lon nhat');
if (b>a) and (b>c) then writeln('b =',b,' la so lon nhat');
if (c>a) and (c>b) then writeln('c =',c,' la so lon nhat');
readln
end.
Câu hỏi trong lớp
Xem thêm
