Nhập vào số nguyên n tính tổng và in ra các số là bội của 3

0 bình luận về “Nhập vào số nguyên n tính tổng và in ra các số là bội của 3”

1. program phuongt;
   uses crt;
     var A: array[1..500] of integer;
           n, i: integer;
   begin
          clrscr;
          write(‘Nhap n = ‘); readln(n);
          for i:=1 to n do
          begin
                write(‘A[‘, i, ‘] = ‘); readln(A[i]);
          end;
          write(‘Cac so la boi cua 3: ‘),
          for i:=1 to n do if A[i] mod 3 = 0 then write(A[i]:3);
          readln
   end.

   Bình luận

2. Program hotrotinhoc;

   var i,n: integer;

   t: longint;

   begin

   write(‘Nhap n=’); readln(n);

   for i:=1 to n do

   if (i mod 3=0) or (i mod 5=0) then t:=t+i;

   write(t);

   readln

   end.

   Bình luận