Giải giúp em môn tin Đề 1 : ” Viết Phương trình từ bàn phím số nguyên dương k có 2 chữ số, kiểm tra số hàng chục bà hàng đơn vị số nào lớn hơn Đề 2 :

0 bình luận về “Giải giúp em môn tin Đề 1 : ” Viết Phương trình từ bàn phím số nguyên dương k có 2 chữ số, kiểm tra số hàng chục bà hàng đơn vị số nào lớn hơn Đề 2 :”

1. Đề 1:

   program Min;
   uses crt;
   var k,a,b:integer;
   begin
      clrscr;
      writeln(‘Nhap k: ‘); readln(k);
      a:=k div 10;
      b:=k mod 10;
      if a>b then writeln(‘Chu so hang chuc lon hon’) 
      else writeln(‘Chu so hang don vi lon hon’);
      readln
   end.

   Đề 2:

   program Min;
   uses crt;
   var a,b,c:integer;
   begin
      clrscr;
      writeln(‘Nhap a, b, c: ‘); readln(a,b,c);
      a:=sqr(a); b:=sqr(b); c:=sqr(c);
      if (a+b=c) or (a+c=b) or (b+c=a) 
      then writeln(‘Day la 3 canh cua tam giac vuong’)
      else writeln(‘Day khong la 3 canh cua tam giac vuong’);
      readln
   end.

   Bạn tham khảo nha 😀

   Bình luận