* Phân tích đề:
Viết phương trình tính tổng S = 2 + 4 + 6 + 8 +...+ 2N
----> viết chương trình chứ bạn.
Code:
program tt;
uses crt;
var j,k,i,n:integer;
s:real;
begin
clrscr;
repeat
write('Nhap n=');readln(n);</p><p>if n>=1 then break;</p><p>writeln('Hay nhap n>=1');
until false;
s:=0;
for i:=1 to n do
s:=s+2*i;
writeln('Tong: ',s:4:2);
readln
end.