Viết chương trình đưa ra máy tính các số chia hết cho 3 và tổng các só không chia hết cho 3 từ 5 số nhập vào từ bàn phím

0 bình luận về “Viết chương trình đưa ra máy tính các số chia hết cho 3 và tổng các só không chia hết cho 3 từ 5 số nhập vào từ bàn phím”

1. Program BTT;
   Uses crt;
   Var A: array[1..5] of longint;
       i,t: longint;
   Begin
           Clrscr;
           t:=0;
           For i:=1 to 5 do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
                   If A[i] mod 3 <> 0 then t:=t+A[i];
           End;

           Write(‘Cac so chia het cho 3: ‘);
           For i:=1 to 5 do
                   If A[i] mod 3 = 0 then Write(A[i],’ ‘);
           Writeln;
           Write(‘Tong cac so khong chia het cho 3: ‘,t);
           Readln
   End.

   Bình luận

2. Program hotrotinhoc;

   var a,b,c,d,e,i,n: integer;

   st,s: string;

   t: longint;

   begin

   for i:=1 to 5 do

   begin

   readln(x);

   if x mod 3=0 then

   begin

   str(x,st);

   s:=s+st+#32;

   end;

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

   end;

   writeln(st);

   write(t);

   readln

   end.

   Bình luận