viết chương trình nhập vào từ bàn phím hai số nguyên a, b (a,b có giá trị tuyệt đối không vượt quá 1000) tính và đưa ra màn hình giá trị của biểu thức (a+b)^3
2 câu trả lời
program q86142;
uses crt;
var a, b, S:LongInt;
begin
clrscr;
write('Nhap 2 so a va b'); readln(a,b);
S:=0;
If (abs(a) > 1000) or (abs(b) > 1000)) then write('Loi gia tri tuyet doi voi qua 1000')
else S:=(a+b)*(a+b)*(a+b);
write('Gia tri bieu thuc ',S);
readln
end.
Chương trình chưa được chạy thử nên có thể có sai sót
Program TTD;
Uses crt;
Var a,b,t: int64;
Begin
Clrscr;
Write('Nhap a va b: '); Readln(a,b);
If (abs(a)>1000) and (abs(b)>1000) then
Begin
Write('Nhap sai! Yeu cau nhap lai hai so a, b: ');
Readln(a,b);
End;
t:=sqr(a+b)*(a+b);
Write(t);
Readln
End.
