Viết chương trình nhập vào mảng 1 chiều B có tối đa k quá 100 phần tử kiểu nguyên, sau đó nhập vào số nguyên k. a/ tính tổng các số là bội của k và là

0 bình luận về “Viết chương trình nhập vào mảng 1 chiều B có tối đa k quá 100 phần tử kiểu nguyên, sau đó nhập vào số nguyên k. a/ tính tổng các số là bội của k và là”

1. Program BT;
   Var n,i,t,tich,k : longint;
       a : array [1..100] of longint;
   Begin
   repeat
   Write (‘Nhap N : ‘);Readln(n);
   until (n > 0) and (n <= 100);
   t := 0;
   tich := 1;
   For i := 1 to n do
   Begin
   repeat
   Write (‘A[‘,i,’]= ‘);Readln(a[i]);
   until a[i] <> 0;
   end;
   Write (‘Nhap K : ‘);Readln(k);
   for i := 1 to n do
   Begin
   If (a[i] mod 2 = 0) and (a[i] mod k = 0) then t := t + a[i];
   If (k mod a[i] = 0) and (a[i] > 0) then tich := tich * a[i]
   end;
   Writeln(‘a,Tong la : ‘,t);
   Write (‘b,Tich la : ‘,tich);
   end.

   Bình luận