Question

Viết chương trình tính tổng N số tự nhiên chẵn đầu tiên,với N là số tự nhiên được nhập từ bàn phím.

Answer 1

program tong_chan;
uses crt;
var N,dem:integer;
Tong:longint;
BEGIN
Clrscr;
writeln('Nhap so nguyen N =');
readln(N);
Tong := 0;
dem := 0;
while dem < N do
begin
Tong := Tong + dem*2;
dem := dem + 1;
end;
write('Tong', N, 'so tu nhien chan dau tien la: ',Tong);
readln;
END.

Answer 2

program bai1;

var s,i,n:longint;

begin

write('N= ');;

readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

write('s= ',s);

readln

end.