2 câu trả lời
program bai_giai;
uses crt;
var a,b:integer;
procedure tong(a,b:integer);
var t:integer;
begin
t:=a+b;
write(t);
end;
BEGIN
clrscr;
readln(a,b);
tong(a,b);
readln;
end.
uses crt;
var a,b,s:integer;
procedure tong(m,n:integer);
begin s:=a+b; write('Tong la: ',s); end;
begin
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
tong(a,b);
readln
end.
Câu hỏi trong lớp
Xem thêm
