Question

nhập 4 số a,b,c,d từ bàn phím tính tổng,tích của chúng

Answer 1

uses crt;

var a,b,c,d:integer;

begin

clrscr;

readln(a,b,c,d);

writeln(a+b+c+d);

writeln(a*b*c*d);

readln;

end.

Answer 2

var a,b,c,d: integer;

begin

readln(a,b,c,d);

writeln('Tong = ',a+b+c+d);

writeln('Tich = ',a*b*c*d);

readln

end.

Answer 3

var a,b,c,d: integer;

begin

readln(a,b,c,d);

writeln('Tong = ',a+b+c+d);

writeln('Tich = ',a*b*c*d);

readln

end.