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 ạ????????”

1. 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.

   Bình luận