Câu 1:Nhập số nguyên a,b in ra màn hình xem số nào lớn hơn Câu 2: Nhập vào cân nặng của An và Minh in ra màn hình thông báo xem ai nặng hơn

0 bình luận về “Câu 1:Nhập số nguyên a,b in ra màn hình xem số nào lớn hơn Câu 2: Nhập vào cân nặng của An và Minh in ra màn hình thông báo xem ai nặng hơn”

1. B1:

   program bai1;

   var

                  a,b:integer;

   begin

                  write(‘Nhap hai so: ‘);readln(a,b);

                  if a>b then write(a,’ lon hon ‘,b) else write(b,’ lon hon ‘,a);

                  readln;

   end.

   B2:

   program bai2;

   var

                 a,m:real;

   begin

                 write(‘Nhap can nang cua An: ‘);readln(a);

                  write(‘Nhap can nang cua Minh: ‘);readln(m);

                  if a>m then write(‘An nang hon Minh’) else write(‘Minh nang hon An’);

                 readln;

   end.

   Bình luận

2. Câu 1:

   uses crt;

   var a,b:integer;

   begin

            clrscr;

            write(‘Nhap a= ‘);readln(a);

            write(‘Nhap b= ‘);readln(b);

            if a>b then writeln(‘a lon hon b’) else writeln(‘b lon hon a’);

            readln;

   end.

   Câu 2:

   uses crt;

   var An,Minh:real;

   begin

            clrscr;

            write(‘Nhap can nang cua An= ‘),readln(An);

            write(‘Nhap can bang cua Minh= ‘);readln(Minh);

            if An>Minh then writeln(‘An nang hon Minh’)

            else writeln(‘Minh nang hon An’);

            readln;

   end.

   Bình luận