Đăng nhập để hỏi chi tiết
0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
5548
3433
var a,b:integer;
begin
write('a,b');read(a,b);
if a<b then write(a) else write(b);
readln;
end.
`khoadang09`
Hãy giúp mọi người biết câu trả lời này thế nào?
* Viết chương trình :
program baitap;
uses crt;
var a, b : integer;
begin
clrscr;
write('nhap so a :');readln(a);
write('nhap so b :');readln(b);
if a < b then writeln('thu tu khong giam cua hai so la :', a:4, b:4);
if a > b then writeln('thu tu khong giam cua hai so la :', b:4, a:4);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin