Nhập vào số nguyên a. Tìm và in ra căn bậc 2 của a, bình phương của a

0 bình luận về “Nhập vào số nguyên a. Tìm và in ra căn bậc 2 của a, bình phương của a”

1. uses crt;

   var a:integer;

   begin

   clrscr;

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

   writeln(‘Can bac 2 cua a la: ‘,sqrt(a):1:0);

   writeln(‘Binh phuong cua a la: ‘,sqr(a);

   readln

   end.

   Bình luận

2. Uses crt;

   Var a: integer;

   Begin

      Clrscr;

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

      Writeln(‘Can bac hai cua ‘,a,’ la: ‘,sqrt(a));

      Writeln(‘Binh phuong cua ‘,a,’ la: ‘,sqr(a));

   Readln

   End.

   Bình luận