Lập chương trình tí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 tính s = x2+y2 với x y là các số nguyên”

1. Uses crt;

   Var x, y, s: integer;

   Begin

        Clrscr;

        Write(‘Nhap x va y: ‘); readln(x, y);

        s:=x*x+y*y;

        Writeln(‘S = ‘,s);

   Readln

   End.

   Bình luận

2. 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