KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
nhập n và dãy a1 a2… AN và số nguyên k. hãy đếm và tính tổng các số là bội của k
By Reese
nhập n và dãy a1 a2… AN và số nguyên k. hãy đếm và tính tổng các số là bội của k
uses crt; var a: array[1..100] of integer; k,i,n,t,dem:integer; begin clrscr; write(‘nhap n: ‘); readln(n); for i:=1 to n do begin write(‘nhap a[‘,i,’]= ‘); readln(a[i]); end; write(‘nhap k: ‘); readln(k); for i:=1 to n do if a[i] mod k=0 then begin inc(dem); t:=t+a[i]; end; writeln(‘co ‘,dem,’ so trong day la boi cua ‘,k); writeln(‘tong cua day boi la: ‘,t); readln; end.
uses crt;
var a: array[1..100] of integer;
k,i,n,t,dem:integer;
begin
clrscr;
write(‘nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘nhap a[‘,i,’]= ‘); readln(a[i]);
end;
write(‘nhap k: ‘); readln(k);
for i:=1 to n do
if a[i] mod k=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln(‘co ‘,dem,’ so trong day la boi cua ‘,k);
writeln(‘tong cua day boi la: ‘,t);
readln;
end.
program boi_so;
uses crt;
var A:array[1..1000] of integer;
n,i,k,d,t:integer;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
end;
write(‘Nhap k: ‘); readln(k);
d:=0; t:=0;
for i:=1 to n do
if A[i] mod k=0 then
begin
d:=d+1;
t:=t+A[i];
end;
writeln(‘Co ‘,d,’ so la boi cua ‘,k);
writeln(‘Tong cua chung la: ‘,t);
readln;
end.