Viết chương trình nhập N (N<150) là số nguyên tính và đưa ra tổng các số chia hết cho 3

Viết chương trình nhập N (N<150) là số nguyên tính và đưa ra tổng các số chia hết cho 3

0 bình luận về “Viết chương trình nhập N (N<150) là số nguyên tính và đưa ra tổng các số chia hết cho 3”

  1. program tong_chia3;

    uses crt;

    var n,i,t:integer;

    begin

           clrscr;

           repeat

                  write(‘Nhap n: ‘);  readln(n);

                  if n>=150 then

                         begin

                                write(‘n phai be hon 150. Nhap lai!’);

                                readln;

                                clrscr;

                         end;

           until n<150;

           t:=0;

           for i:=1 to n do

                  if i mod 3=0 then t:=t+i;

           write(‘Tong cac so chia het cho 3 tu 1 den ‘,n,’ la: ‘,t);

           readln;

    end.

    Bình luận
  2. progrgam tong;

    uses crt;

    var A:array [1..500] of integer;

          N,i,T: integer;

    Begin

             write(‘Nhap N: ‘); readln(N);

             while N>=150 do

             begin

                      write(‘Nhap lai N<150: ‘); readln(N);

             end;

             for i:=1 to N do

             begin

                      write(‘A[‘,i,’]=’); readln(A[i]);

             end;

             for i:=1 to N do

             if A[i] mod 3=0 then T:=T+A[i];

             write(‘Tong cac so chia het cho 3 = ‘,T);

             readln

    End.

    Bình luận

Viết một bình luận