hãy mô tả thuật toán và viết chương trình pascal tính tổng các số tự nhiên chia hết cho 3 từ 1 đến 1000 gợi ý sử dụng lồng vòng lặp và câu lệnh if

Mô tả thuật toán:

Input: Số tự nhiên từ 1--->1000

Output: Tổng của S

Thuật toán

B1: s<---0;i<---1

B2 : Nếu i > 1000 thì đến B;
B3 : Nếu i mod 3=0 thì s <- s + i
B4 : i <- i + 1 và chuyển về B2
B5 : Thông báo s

B6: Kết thúc thuật toán

Viết chương trình 

Program BTH;
Uses crt;
Var i:integer;
s:qword;
Begin
clrscr;
        For i:=1 to 1000 do
        Begin
                If i mod 3=0 then s:=s+i
        end;
        Writeln('Tong day so tren la: ',s);
        readln;
End.

Mô tả thuật toán:

Input: Số tự nhiên từ 1--->1000

Output: Tổng của S

Thuật toán

B1: s<---0;i<---1

B2 : Nếu i > 1000 thì đến B;
B3 : Nếu i mod 3=0 thì s <- s + i
B4 : i <- i + 1 và chuyển về B2
B5 : Thông báo s

B6: Kết thúc thuật toán

Viết chương trình 

Program BTH;
Uses crt;
Var i:integer;
s:qword;
Begin
clrscr;
        For i:=1 to 1000 do
        Begin
                If i mod 3=0 then s:=s+i
        end;
        Writeln('Tong day so tren la: ',s);
        readln;