1. Đếm số chia hết cho 5 và không chia hết cho 7 của dãy n số nguyên.
2. Đếm số bằng 0 trong dãy gồm n số nguyên.
(Dùng kiểu mảng)

Question

1. Đếm số chia hết cho 5 và không chia hết cho 7 của dãy n số nguyên. 2. Đếm số bằng 0 trong dãy gồm n số nguyên. (Dùng kiểu mảng)

diemmy · Answer

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
n,i,d,d0: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
d:=0;
d0:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘); Readln(A[i]);
If (A[i] mod 5 = 0) and (A[i] mod 7 <> 0) then inc(d);
If A[i]=0 then inc(d0);
End;
Writeln(‘Bai 1: ‘,d);
Write(‘Bai 2: ‘,d0);
Readln
End.

hienchau · Answer

1.

var n,i,d:longint;

a: array [1..100] of longint;

write(‘Nhap n: ‘); readln(n);

for i:=1 to n do

write(‘A[‘,i,’] = ‘); read(a[i]);

for i:=1 to n if a[i] mod 5=0 then

if not a[i] mod 7 = 0 then inc(d);

writeln;

write(‘So luong: ‘,d);

readln;

end.

2.