Làm quen với tin học và máy tính điện tử

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đỗ Đức Lâm

nhập vào mảng 1 chiều A gốm N phần tử là các số nguyên (1<N<=10^6) và số nguyên K
a) tính tổng các số chia hết cho R
b) Đếm số lượng các số chia hết cho R

Nguyễn Lê Phước Thịnh
31 tháng 5 2020 lúc 18:45

uses crt;

var a:array[2..1000000]of longint;

n,i,k,t,dem:longint;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (1<n) and (n<=1000000);

for i:=2 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

t:=0;

dem:=0;

for i:=2 to n do

if a[i] mod k=0 then

begin

t:=t+a[i];

inc(dem);

end;

writeln('Tong cac so chia het cho ',k,' la: ',t);

writeln('So phan tu chia het cho ',k,' la: ',dem);

readln;

end.


Các câu hỏi tương tự
Nguyen Kiet
Xem chi tiết
hoa Nguyễn
Xem chi tiết
Dragon
Xem chi tiết
Nhung
Xem chi tiết
Hoàng Tuấn Khang
Xem chi tiết
Đông Nguyễn
Xem chi tiết
tuyết trinh
Xem chi tiết
Nguyễn Minh Lệ
Xem chi tiết
Nhung
Xem chi tiết