viết chương trình nhập vào 1 dãy gồm N số nguyên (N<= 150) tính tổng các số chia hết cho k

0 bình luận về “viết chương trình nhập vào 1 dãy gồm N số nguyên (N<= 150) tính tổng các số chia hết cho k”

1. program ct;

   uses crt;

   var i,n,S,k:integer;

   A:array[1..150] of integer;

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

       for i:=1 to n do

   begin

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

   end;

     write(‘nhap k:=’);readln(k);

      S:=0;

       for i:=1 to n do

         if A[i] mod k=0 then S:=S+A[i];

            writeln(‘tong la:’,S);

   readln

   end.  

   Bình luận

2. program ct;

   uses crt;

   var i,n,S,k:integer;

   A:array[1..150] of integer;

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

       for i:=1 to n do

   begin

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

   end;

     write(‘nhap k:=’);readln(k);

      S:=0;

       for i:=1 to n do

         if A[i] mod k=0 then S:=S+A[i];

            writeln(‘tong la:’,S);

   readln

   end.  

   Bình luận