Viết chương trình con tính tích hai số nguyên a và b Mọi người giúp mình với mình đang cần lời giải gấp.
2 câu trả lời
program bt1;
var a,b,c:integer;
begin
write('nhập số a là : ');readln(a);
write('nhập số b là : ');readln(b);
c:=a*b;
write('a*b=',c);
readln;
end.
uses crt;
var a,b:integer;
{---Ham-tich---}
function p(a,b:integer):integer;
begin
p:=a*b;
end;
{---Chuong-trinh-chinh---}
begin
clrscr;
write('Nhap a,b: '); readln(a,b);
write('Tich: ',p(a,b));
readln;
end.
Câu hỏi trong lớp
Xem thêm
