Mô tả thuật toán tính tổng của n số lẻ từ 1 đến N

0 bình luận về “Mô tả thuật toán tính tổng của n số lẻ từ 1 đến N”

1. program Bai_1_FoToDo;
   uses crt;
   var n,i :longint; S :qword;
   begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           S:=0;
           For i:=1 to n do S:=S+(2*i)+1
           write(‘Tong cac so le tu 1->n la : ‘,S);
           readln;
   end.

   Bình luận