lập chương trình s = x2+y2 với x:y là các số nguyên

0 bình luận về “lập chương trình s = x2+y2 với x:y là các số nguyên”

1. Program tinh_tong;

   uses crt;

   var x,y, S:Integer;

   begin

   Writeln(‘nhap hai so x,y =’);
   readln(x,y);

   S:= (x*x)+(y*y);

   Writeln(‘gia tri biểu thuc =’,S);

   readln;

   End.

   Bình luận

2. Uses crt;

   Var x, y, s: integer;

   Begin

       Clrscr;

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

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

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

       Writeln(‘S = ‘,s:8:2);

   Readln

   End.

   Bình luận