Viết chương trình nhập vào n một số nguyên đếm xem có bao nhiêu số chia hết cho 5
✅ viết chương trình bằng cách nhập vào dãy N số nguyên , đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phímviết chương trình bằng cách nhập ѵào dãy N số nguyên , đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phímHỏi: Show
viết chương trình bằng cách nhập ѵào dãy N số nguyên , đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phím viết chương trình bằng cách nhập ѵào dãy N số nguyên , đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phím Đáp: baothah: var a:aray[1..1000]of integer; i,n,d:integer; begin d:=0; writeln(‘nhap n’);readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 5=0 then d:=d+1; write(d); readln; end. var a:aray[1..1000]of integer; i,n,d:integer; begin d:=0; writeln(‘nhap n’);readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 5=0 then d:=d+1; write(d); readln; end. viết chương trình bằng cách nhập vào dãy N số nguyên , đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phímHome/ Môn học/Tin học/viết chương trình bằng cách nhập vào dãy N số nguyên , đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phím ✅ viết chương trình nhập vào 1 dãy số nguyên.Đếm xem có bao nhiêu số chia hết cho 3 và tích của chúng là bao nhiêuviết chương trình nhập ѵào 1 dãy số nguyên.Đếm xem có bao nhiêu số chia hết cho 3 ѵà tích c̠ủa̠ chúng Ɩà bao nhiêuHỏi: viết chương trình nhập ѵào 1 dãy số nguyên.Đếm xem có bao nhiêu số chia hết cho 3 ѵà tích c̠ủa̠ chúng Ɩà bao nhiêu viết chương trình nhập ѵào 1 dãy số nguyên.Đếm xem có bao nhiêu số chia hết cho 3 ѵà tích c̠ủa̠ chúng Ɩà bao nhiêu Đáp: thucquyen: program ct; uses crt; var i,n,d,T:integer; A:array[1..100] of integer; begin clrscr; write(‘nhap n:=’);readln(n); for i:=1 to n do begin write(‘nhap mang A[‘,i,’]:=’);readln(A[i]); end; d:=0; T:=1; for i:=1 to n do if A[i] mod 3=0 then d:=d+1; writeln(‘so chia het cho 3 la:’,d); for i:=1 to n so T:=T*A[i]; writeln(‘tich la:’,T); readln end. program ct; uses crt; var i,n,d,T:integer; A:array[1..100] of integer; begin clrscr; write(‘nhap n:=’);readln(n); for i:=1 to n do begin write(‘nhap mang A[‘,i,’]:=’);readln(A[i]); end; d:=0; T:=1; for i:=1 to n do if A[i] mod 3=0 then d:=d+1; writeln(‘so chia het cho 3 la:’,d); for i:=1 to n so T:=T*A[i]; writeln(‘tich la:’,T); readln end. |