Viết chương trình tính và xuất tổng s = 2 mũ 2 + 4 mũ 2 + 6 mũ 2 + 8 mũ 2 + 10 mũ 2

0 bình luận về “Viết chương trình tính và xuất tổng s = 2 mũ 2 + 4 mũ 2 + 6 mũ 2 + 8 mũ 2 + 10 mũ 2”

1. Uses crt;

   Var i:integer,t:longint;

   BEGIN 

   Clrscr;

   For i:=2 to 10 do if i mod 2 = 0 then t:=t+(i*i);

   Write(‘2^2 + 4^2 + 6^2 + 8^2 + 10^2);

   Readln

   END.

   Bình luận