viết chương trình .nhập hai đối tượng x,y và đưa ra màn hình ²✓x²+y²

0 bình luận về “viết chương trình .nhập hai đối tượng x,y và đưa ra màn hình ²✓x²+y²”

1. Uses crt;

   Var x, y, s: real;

   Begin

      Clrscr;

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

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

      s:=sqrt(sqr(x)+sqr(y));

      Writeln(‘Ket qua la: ‘,s:4:2);

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

   var x,y:integer;

   begin

   clrscr;

   write(‘nhap x=’); readln(x);

   write(‘nhap y=’); readln(y);

   writeln(‘ket qua la’,sqrt(x*x+y*y));

   readln

   end.

   Bình luận