Câu 1 : Viết chương trình tính tổng S = 1+ 2³ +3³ +4³+…+100³ Giải giúp mik vs,tin học 11

0 bình luận về “Câu 1 : Viết chương trình tính tổng S = 1+ 2³ +3³ +4³+…+100³ Giải giúp mik vs,tin học 11”

1. uses crt;

   var s, i: integer;

   begin

    clrscr;

     s:=0;

     for i:=1 to 100 do

      s:=s+(i*i*i);

     writeln (‘tong la: ‘,s);

    readln;

   end.

   cam kết đúng 100% vì đã chạy thử chương trình

   Bình luận

2. uses crt;
   var d:qword; i:longint;
   begin
   clrscr;

      d:=0;

      for i:=1 to 100 do d:=d+i*i*i;
      writeln(‘Tong lap phuong cac so tu 1 den 100 la: ‘,d);
   readln;
   end.

   Bình luận