Viết chương trình bằng ngôn ngữ lập trình Free Pascal yêu cầu người dùng nhập vào chiều cao của 2 bạn Nam và Bình. Sau đó thực hiện các nội dung sau:
a. Tính tổng, trung bình cộng chiều cao của 2 bạn.
b. So sánh Nam và Bình ai cao hơn.
c. Kiểm tra chiều cao của 2 bạn. Trên 7.0m thì đạt chuẩn.
Program NN;
Uses crt;
Var n,b,s: longint;
tbc: real;
Begin
Clrscr;
Write(‘Nhap chieu cao Nam va Binh (cm): ‘); Readln(n,b);
s:=n+b;
tbc:=s/2;
Writeln(‘S = ‘,s);
Writeln(‘TBC = ‘,tbc:0:2);
If n>b then Writeln(‘Nam cao hon’)
Else If b>n then Writeln(‘Binh cao hon’)
Else Writeln(‘Cao bang nhau’);
If n>700 then Writeln(‘Nam dat chuan’)
Else Writeln(‘Nam khong dat chuan’);
If b>700 then Write(‘Binh dat chuan’)
Else Write(‘Binh khong dat chuan’);
Readln
End.