1. viết chương trình tính tổng S= 2+4+6+...2n bằng hai cách ( nhập số n từ bàn phím ) 2 . viết chương trình tính tổng S= 1999+1+3+5+...+2n+1 theo hai cách ( n nhập từ bàn phím )

Câu 1:

program CauHoi;

uses crt;

var i,n :integer; S :qword;

begin

           write('Nhap so n: '); readln(n);

For i:=1 to n do S:=S+2*i;

writeln('Ket qua la: ',S);

readln;

end.

Thêm câu 2 này

program CauHoi;

uses crt;

var i,n :integer; S :qword;

begin

           write('Nhap so n: '); readln(n);

For i:=1 to n do S:=S+(2*i)+1;

writeln('Ket qua la: ',S);

readln;

end.

`1)`

uses crt;

var i,n :integer; S :qword;

begin

write('Nhap so n: '); readln(n);

For i:=1 to n do S:=S+2*i;

writeln('Ket qua la: ',S);

readln;

end.

`2)`

uses crt;

var i,n :integer; S :qword;

begin

write('Nhap so n: '); readln(n);

For i:=1 to n do S:=S+(2*i)+1;

writeln('Ket qua la: ',S);

readln;

end.