Question

Vct nhập vào 2 số nguyên tính tổng 2 số vừa nhập ( tg đó có sử dụng thủ tục nhập và hàm tính tổng)

Answer 1

uses crt;

var a,b:integer;

{-------------------thu-tuc-nhap-------------------}

procedure nhap(var n:integer);

begin

write('Nhap so tu nhien:'); readn(n);

end;

{---------------------ham-tinh-tong----------------------}

function tong(x,y:integer):integer;

begin

tong:=x+y;

end;

{-----------------chuong-trinh-chinh---------------}

begin

clrscr;

nhap(a);

nhap(b);

writeln(tong(a,b));

readln;

end.