Viết chương trình nhập chiều cao của hai bạn trong lớp. Nếu bạn này cao hơn bạn kia thì hiển thị chiều cao của bạn này và ngược lại.
Viết chương trình nhập chiều cao của hai bạn trong lớp. Nếu bạn này cao hơn bạn kia thì hiển thị chiều cao của bạn này và ngược lại.
var htt,I: integer;
Begin
write(‘nhap chieu cao cua htt:’);readln(htt);
write(‘nhap chieu cao cua I:’);readln(I);
if htt>I then write(‘htt cao hon I’)
else
begin
if htt<I then write(‘I cao hon htt’)
else
write(‘htt cao bang I’);
end;
readln;
End.
Program chieu_cao;
Uses crt;
Var a,b:real;
Begin
Clrscr;
Write(‘Nhap chieu cao cua hai ban’);
Readln(a,b);
If a>b Then Write(a)
Else
Begin
If a<b Then Write(b)
Else Write(‘hai ban cao bang nhau’);
End;
Readln;
End.
#NhậtGaming