lập chương trì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 = '); readln(x);
Write('Nhap y = '); readln(y);
s:=sqr(x)+sqr(y);
Writeln('S = ',s:8:2);
Readln
End.
Câu hỏi trong lớp
Xem thêm
