Viết chương trình nhập 1 số nguyên x tính tổng bình phương các số lẻ từ 1 đến x

Viết chương trình nhập 1 số nguyên x tính tổng bình phương các số lẻ từ 1 đến x

0 bình luận về “Viết chương trình nhập 1 số nguyên x tính tổng bình phương các số lẻ từ 1 đến x”

  1. program tong_binhphuong_sole;
    uses crt;
    var n,i:integer;
         t:longint;
    begin
           clrscr;
           write(‘Nhap n: ‘);  readln(n);
           t:=0;
           for i:=1 to n do
                  if i mod 2=1 then t:=t+i*i;
           write(‘Tong binh phuong cac so le tu 1 den ‘,n,’ la: ‘,t);
           readln;
    end.

    Bình luận

Viết một bình luận