Lập chương trình tính s = x2+y2 với x y là các số nguyên
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm
