Question

Viết chương trình nhập từ bàn phím số học sinh nam và số học sinh nữ . In ra màn hình kết quả so sánh của nam và nữ (nếu nhiều hơn thì nhiều hơn bao nhiêu)

Answer 1

var a,b,C : integer ;

begin

wirte('nhap so hoc sinh nam'); readln(a);

wirte('nhap so hoc sinh nu'); readln(b);

If a>b then writeln('nam nhieu hon nu') else writeln('nu nhieu hon nam');

begin

C:=a-b;

C:=b-a

end;

write('hon nhau so ban la',C);

readln

end.

Answer 2

program bai1;

var x,y:longint;

begin

write('So hs nam: ');readln(x);

write('So hs nu: ');realn(y);

if x<y then write('Nam it hon nu (it hon ',y-x,' hs')

else if x>y then write('Nam nhieu hon nu (nhieu hon ',x-y,' hs')

else if x=y then write('Nam=nu ');

readln

end.