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

2 câu trả lời

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.

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.

Câu hỏi trong lớp Xem thêm