Viết chương trình con tính tổng hai số bất kì
2 câu trả lời
uses crt;
var x,y:real;
{---Ham-tong---}
function s(x,y:real):real;
begin
s:=x+y;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap hai so: '); readln(x,y);
write('Tong: ',s(x,y):0:2);
readln;
END.
