Question

em hãy viết chương trình nhập vào 5 số nguyên tích tổng của thứ nhất và số thứ 5,tích của 2,3,4 trong đó có sử dụng chương trình con

Answer 1

Program HOC24;

var a,b,c,d,e: integer;

function tich(i,j: integer): longint;

var kq1: longint;

begin

kq1:=i;

kq1:=kq1*j;

tich:=kq1;

end;

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

var kq : integer;

begin

kq:=0;

kq:=x;

kq:=kq+y;

tong:=kq;

end;

begin

write('Nhap so dau tien : '); readln(a);

write('Nhap so thu 2 : '); readln(b);

write('Nhap so thu 3 : '); readln(c);

write('Nhap so thu 4 : '); readln(d);

write('Nhap so thu 5 : '); readln(e);

writeln('Tong hai so thu 1 va 5 la : ',tong(a,e));

write('Tich cua so thu 2;3;4 la : ',tich(tich(b,c),d));

readln

end.