Viết chương trình vào mảng a một số nguyên (n<100) vào số nguyên k. tỉnh tổng các số bội của k Cần giúp bây h luôn đang thi tin học
2 câu trả lời
Uses crt;
Var A:array[1..100] of integer;
n,i,k,s:integer;
Begin
Clrscr;
Write('Nhap n: '); readln(n);
Write('Nhap k: '); readln(k);
For i:=1 to n do
Begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
if A[i] mod k = 0 then s:=s+A[i];
End;
Write('Tong cac so boi cua ',k,' la: ',s);
Readln
End.
uses crt;
var A:array[1..100] of integer;
n,i,k,s:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Nhap k: '); readln(k);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
if A[i] mod k = 0 then s:=s+A[i];
end;
write('Tong cac so boi cua ',k,' la: ',s);
readln
end.
Câu hỏi trong lớp
Xem thêm
