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 ạ????????
0 bình luận về “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 ạ????????”
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.
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.