viết chương trình nhập dãy số nguyên gồm 10 số đém có bao nhiêu số chia hết cho 5
Những câu hỏi liên quan
viết chương trình nhập một dãy A gồm N số nguyên. Hãy cho biết trong dãy đó có bao nhiêu số chia hết cho 3
var a:array [1..100] of integer;
i,n,dem:integer;
begin
write('Nhap so luong so N = ');readln(n);
for i:=1 to n do
begin
write('Nhap vao so thu ',i,': ');readln(a[i]);
if a[i] mod 3 = 0 then dem:=dem+1;
end;
write('Co ',dem,' so chia het cho 3');
readln;
end.
Đúng 1
Bình luận (0)
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
dem=0;
for (i=1; i<=n; i++)
if (a[i]%3==0) dem++;
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập vào dãy số , đém xem có bao nhiêu số lẽ trong dãy số vừa nhập.
Mọi người giúp em với ạ !!
Program Tin;
Uses crt;
Var i,n,dem:Integer;
a:array[1..10000] of integer;
Begin
clrscr;
Write('Nhap do dai cua day: ');readln(n);
dem:=0;
Writeln('Nhap ',n,' phan tu cua day:');
For i:= 1 to n do
Begin
Write('So thu ',i,': ');
readln(a[i]);
If a[i] mod 2 = 1 then dem:=dem+1;
End;
Writeln('Day co ',dem,' so le');
readln;
End.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào bốn số A,B,L,R.Hãy đém xem có bao nhiêu số từ L đến R chia hết cho A và B (Pascal);
uses crt;
var a,b,l,r,i,dem:integer;
begin
clrscr;
readln(a,b,l,r);
dem:=0;
for i:=l to r do
if (i mod a=0) and (i mod b=0) then inc(dem);
write(dem);
readln;
end.
Đúng 1
Bình luận (0)
var a,b,dem,L,i,R:longint;
begin
readln(a,b,L,R);
dem:=0;
for i:=L to R do
if (i mod a=0) and (i mod b=0) then inc(dem);
write(dem);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào dãy số nguyên a1 a2..., aN hãy cho biết trong dãy có bao nhiêu số hạng là sô chia hết cho 3 và 5 ( co thể 3 hoặc 5)
sử dụng biến mảng viết chương trình nhập dãy số N sô nguyên từ bàn phím, sau đó in ra màng hình có bao nhiêu số chia hết cho 5
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]):
dem:=0;
for i:=1 to n do if a[i] mod 5=0 then inc(dem);
writeln(dem);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào dãy N số nguyên, đếm xem có bao nhiêu số ko chia hết cho 5(N nhập đc vào từ bàn phím ) GIÚP MIK VS MN MAI MIK THÌ TIN RỒI
Program HOC24;
var i,n,d: integer;
a: array[1..1000] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
d:=0;
for i:=1 to n do if a[i] mod 5<>0 then d:=d+1;
write('Co ',d,' so khong chia het cho 5');
readln
end.
Đúng 2
Bình luận (0)
viết chương trình tạo dãy A gồm N số nguyên (N≤25) và 1 số nguyên k.
A) cho biết trong dãy A có bao nhiêu số có giá trị bằng k
B) cho biết trong dãy â có bao nhiêu số chia hết cho k
C) Tính tổng các số chia hết cho k trong dãy A
Giúp em với:(( Cho một dãy gồm m số nguyên Viết chương trình nhập m số nguyên đó và đếm xem có bao nhiêu số chẵn trong dãy m số vừa nhập
Viết chương trình nhập vào từ bàn phím n và dãy số nguyên a1,a2,..an(0<n<100)
a. cho biết có bao nhiêu số lớn hơn k trong dãy a1,..,an
b. cho biết có bao nhiêu số có tổng các chữ số chia hết cho 3 ?
n = int(input("Nhập n: "))
a = [ ]
for i in range(n):
a.append(int(input(f"Nhập phần tử a[{i}]: ")))
k = int(input("Nhập k: "))
count_greater = 0
count_divisible_by_three = 0
for num in a:
if num > k:
count_greater += 1
if sum(int(digit) for digit in str(num)) % 3 == 0:
count_divisible_by_three += 1
print(f"Số lớn hơn {k}: {count_greater} số")
print(f"Số có tổng các chữ số chia hết cho 3: {count_divisible_by_three} số")
Đúng 0
Bình luận (0)