Tin học 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) 13/07/2021 By Alexandra 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)
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. Trả lời
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. Trả lời