Question

HUHU EM CẦN GẤP LẮM R Ạ. TRẢ LỜI DÙM EM TRONG CHIỀU NAY ĐC KO? CÂU HỎI LÀ 

đọc 2 số x,y nguyên dương từ tệp 'baitap.txt' và đưa phép toán T=căn x^2+y^2 và đưa ra màn hình tổng T

cái này là tin 11 ạ

Answer 1

uses crt;

const fi='baitap.txt'

var f1:text;

x,y:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,x,y);

writeln(sqrt(x*x+y*y):4:2);

close(f1);

readln;

end.