HỌC SINH VIẾT CHƯƠNG TRÌNH PASCAL TRỰC TIẾP VÀO PHẦN TRẢ LỜI (KHÔNG CHỤP MÀN HÌNH) NHẬP VÀO HAI SỐ NGUYÊN A VÀ B XUẤT RA MÀN HÌNH SỐ LỚN NHẤT. BÀI LẤY ĐIỂM BỔ SUNG CHO NHỮNG CỘT ĐIỂM THIẾU , LẤY ĐIỂM CỘNG CHO NHỮNG BAN ĐÃ ĐỦ CỘT ĐIỂM
2 câu trả lời
Uses crt;
Var
a,b: integer;
Begin
Clrscr;
Write(' Nhap số nguyên a: '); Readln(a);
Write(' Nhap số nguyên b: '); Readln(b);
If a=b then writeln(' Nhập lại hai so khac nhau')
else If a>b then writeln(' So lon nhat la :', a)
else If a<b then writeln(' So lon nhat la :', b);
Readln;
End.
Var a,b:integer;
Begin
writeln('nhap a,b=');readln(a,b);
If a>b then writeln('a')
else write('b');
readln;
End.
Xin 5* và ctlhn