Viết chương trình tìm x nếu a^3+b^3+c^3+abc=x Gíup mình với ạ??
1 câu trả lời
C1
uses crt;
var a,b,c,x:longint;
begin
clrscr;
write('Nhap a: ');readln(a);
write('Nhap b: ');readln(b);
write('Nhap c: ');readln(c);
x:=(a*a*a)+(b*b*b)+(c*c*c)+(a*b*c);
writeln('x=',x);
readln
end.
C2 dùng for:
uses crt;
var a,b,c,x,s,i:longint;
begin
clrscr;
write('Nhap a: ');readln(a);
write('Nhap b: ');readln(b);
write('Nhap c: ');readln(c);
s:=1;
for i:=1 to 3 do s:=s*a;
x:=x+s;
s:=1;
for i:=1 to 3 do s:=s*b;
x:=x+s;
s:=1;
for i:=1 to 3 do s:=s*c;
x:=x+s+a*b*c;
writeln('x=',x);
readln
end.
