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

0 bình luận về “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”

1. 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;

   Bình luận

2. 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.

   Bình luận