Viết chương trình tính tổng S=1+2+3+4+5+6+…+1000 Làm giúp mình với!!!!

0 bình luận về “Viết chương trình tính tổng S=1+2+3+4+5+6+…+1000 Làm giúp mình với!!!!”

1. CHÚC BẠN HỌC TỐT!!!

   Trả lời

   program kaito;

   uses crt;

   var S, i: integer;

   begin

      clrscr;

      for i:=1 to 1000 do S:=S+i;

      wrieln(‘S = ‘,S);

      readln

   end.

   Bình luận

2. var i, S: integer;
   begin
    S:=0;
    for i:=1 to 1000 do S:=S+i;
    write(‘ tong cua S la: ‘,S);
   end.

   Bình luận