Lập chương trình tính s= (a+b)* (×+y). Với a,b,x,y là các số nguyên nhập từ bàn phím
2 câu trả lời
Uses crt;
var a,b,x,y:integer;s:longint;
BEGIN
clrscr;
write('Nhap a: ');readln(a);
write('Nhap b: ');readln(b);
write('Nhap x: ');readln(x);
write('Nhap y: ');readln(y);
s:=(a+b)*(x+y);
Writeln('S=',s);
readln
END.
program ctpt;
uses crt;
var a, b, x, y: integer;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
write('Nhap x = '); readln(x);
write('Nhap y = '); readln(y);
writeln('S=', (a+b)*(x+y));
readln
end.
