Question

1Viết chương trình tính tổng n số tự nhiên đầu tiên.

2.Viết chương trình tính tích n số tự nhiên đầu tiên.

3.Viết chương trình tính tổng n số tự nhiên lẻ đầu tiên.

4.Viết chương trình tính tích của n số tự nhiên lẻ đầu tiên.

Answer 1

Var i, n:integer;

S:longint;

Begin

Writeln('Nhập n'); readln (n);

S:=0;i:=1;

Câu 1:

For i:=1 to n do s:=s+i;

Writeln ('Tổng là', s);

Câu 2:

For i:=1 to n do s:=s*i;

Writeln('Tích là', s);

Câu 3:

For i:=1 to n do

If (i mod 2=1) then s:=s+i;

Writeln ('Tổng các số lẻ của', n,' số đầu tiên', s);

Câu 4:

For i:=1 to n do

If (i mod 2=1) then s:=s*i;

Writeln ('Tích các số lẻ của', n,' số đầu tiên', s);

Readln

End.

End.