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)
2 câu trả lời
program tinh_tong;
uses crt;
var a,b:integer;
{---Nhap---}
procedure nhap;
begin
clrscr;
write('Nhap so thu nhat: '); readln(a);
write('Nhap so thu hai: '); readln(b);
end;
{---Tong---}
function tong(a,b:integer):integer;
begin
tong:=a+b;
end;
{---Chuong-trinh-chinh---}
BEGIN
nhap;
write('Tong la: ',tong(a,b));
readln;
end.
var a, b: integer;
procedure nhap;
begin
write('Nhap so thu nhat: '); readln(a);
write('Nhap so thu hai: '); readln(b);
end;
function tong(a, b: integer):integer;
begin
tong:=a+b;
end;
Begin
nhap;
write('Tong la: ', tong(a,b));
readln
end.
