Question

Bài 1:Viết chương trình con tính căn bậc 2 của x Bài 2:Viết chương trình con tính tổng S=1+2+3+N...với n nhập từ bàn phím Giúp e giải gấp với ạ 11h trưa nay e phải nộp bài ạ

Answer 1

Bài 1: 

function canbac2(x:longint):real;

begin

canbac2:=sqrt(x);

end;

Bài 2: 

function tong(n:longint):longint;

var s,i:longint;

begin

s:=0;

for i:=1 to n do 

  s:=s+i;

tong:=s;

end;