Viết chương trình tính và xúc tổng s = 1 mũ 2 + 3 mũ 2 + 5 mũ 2 + 7 mũ 2 + 9 mũ 2

0 bình luận về “Viết chương trình tính và xúc tổng s = 1 mũ 2 + 3 mũ 2 + 5 mũ 2 + 7 mũ 2 + 9 mũ 2”

1. Uses crt;

   Var i:integer,t:longint;

   BEGIN 

   Clrscr;

   For i:=1 to 9 do if i mod 2 <> 0 then t:=t+(i*i);

   Write(‘1^2 + 3^2 + 5^2 + 7^2 + 9^2);

   Readln

   END.

   Bình luận