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