Question

Viết chương trình nhập vào chiều cao bất kì và cân nặng bất kì của 2 bạn trong lớp so sánh chiều cao cân nặng của 2 bạn đó xuất ra màn hình

Answer 1

uses crt;

var a,b,c,d:real;

begin

clrscr;

write('nhap chieu cao cua ban thu 1:'); readln(a);

write('nhap chieu cao cua ban thu 2:'); readln(b);

write('nhap can nang cua ban thu 1:'); readln(c);

write('nhap can nang cua ban thu 2:'); readln(d);

if a>b then writeln('chieu cao cua ban thu 1 cao hon cua ban thu 2');

if a<b then writeln('chieu cao cua ban thu 2 cao hon cua ban thu 1');

if a=b then writeln('chieu cao cua hai ban bang nhau');

if c>d then writeln('can nang cua ban thu 1 nang hon ban thu 2');

if c<d then writeln('can nang cua ban thu 2 nang hon ban thu 1');

if c=d then writeln('can nang cua hai ban ngang nhau');

readln;

end.

Answer 2

quá đơn giản

uses crt;

var a,b,c,d:real;

begin

clrscr;

write('nhap chieu cao cua ban thu 1:'); readln(a);

write('nhap chieu cao cua ban thu 2:'); readln(b);

write('nhap can nang cua ban thu 1:'); readln(c);

write('nhap can nang cua ban thu 2:'); readln(d);

if a>b then writeln('chieu cao cua ban thu 1 cao hon cua ban thu 2');

if a<b then writeln('chieu cao cua ban thu 2 cao hon cua ban thu 1');

if a=b then writeln('chieu cao cua hai ban bang nhau');

if c>d then writeln('can nang cua ban thu 1 nang hon ban thu 2');

if c<d then writeln('can nang cua ban thu 2 nang hon ban thu 1');

if c=d then writeln('can nang cua hai ban ngang nhau');

readln;

end.