VIẾT CHƯƠNG TRÌNH: 1. Tính tổng một dãy các số tự nhiên. 2. Tính tích một dãy các số tự nhiên.

1

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

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

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

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

1. Tính tổng một dãy các số tự nhiên:

program oken;
uses crt;
var n,i,s: longint;
begin
    clrscr;
    write('Nhap 1 so tu nhien bat ky: '); readln(n);
    for i:=1 to n do
        s:=s+i;
    writeln('Tong ',n,' so tu nhien dau tien: ',s);
    readln;
end.

2. Tính tích một dãy các số tự nhiên:

program oken;
uses crt;
var n,i,s: longint;
begin
    clrscr;
    write('Nhap 1 so tu nhien bat ky: '); readln(n);
    s:=1;
    for i:=1 to n do
        s:=s*i;
    writeln('Tich ',n,' so tu nhien dau tien: ',s);
    readln;
end.