Cho số nguyên dương N(n<=100) và dãy A gồm N số nguyên a1,a2...,aN có giá trị không quá 500.Hãy viết chương trình đưa ra các thông báo sau:
a) tổng các số dương trong dãy A
b) tổng các số dương và chia hết cho 5 trong dãy A
c) Đếm số lần xuất hiện số nguyên X trong dãy A
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
23 tháng 10 2023
#include <bits/stdc++.h>
using namespace std;
long long a[1000006];
long long n;
int main()
{
for(int i=1;i<=1000006;i++){
a[i]=i*i;
}
cin>>n;
for(int i=1;i<=n;i++){
if(a[i]%n==0){cout<<a[i]/n;break;}
}
return 0;
}
KN
26 tháng 1 2021
\(^∗\)Xét \(n=2011\)thì \(S\left(2011\right)=2011^2-2011.2011+2010=2010\)(vô lí)
\(^∗\)Xét \(n>2011\)thì \(n-2011>0\)do đó \(S\left(n\right)=n\left(n-2011\right)+2010>n\left(n-2011\right)>n\)(vô lí do \(S\left(n\right)\le n\))
* Xét \(1\le n\le2010\)thì \(\left(n-1\right)\left(n-2010\right)\le0\Leftrightarrow n^2-2011n+2010\le0\)hay \(S\left(n\right)\le0\)(vô lí do \(S\left(n\right)>0\))
Vậy không tồn tại số nguyên dương n thỏa mãn đề bài
13 tháng 12 2020
uses crt;
var a:array[1..100]of integer;
i,n,t,max,kq,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=0;
for i:=1 to n do
begin
t:=0;
for j:=1 to a[i] do
if a[i] mod j=0 then t:=t+j;
if max<=t then
begin
max:=t;
kq:=a[i];
end;
end;
writeln('So co tong cac uoc lon nhat trong day la: ',kq);
readln;
end.
K
0
8 tháng 1 2015
dễ thấy để S(n) và S(n+1) đều chia hết cho 1 số thì đuôi của n kết thúc bằng các số 9.
giả sử n có x số 9 cuối(ta tìm x nhỏ nhất)
khi đó n có dạng a 99...9 (x số 9)
=> n+1=b00...0 ( x+1 số 0) với b=a+1
do S(n) ≡ S(n+1) (mod 7) => a+9x ≡ b (mod 7) => 9x ≡ 1 (mod 7)
=> x=4
=> n=a9999
mà S(n) chia hết cho 7 => a=6 => n=69999 là nhỏ nhất thỏa mãn :D
Program hotrotinhoc;
var i,n,x,d: integer;
t,t1: longint;
a: array[1..500] of integer;
begin
write('N='); readln(n);
write('X='); readln(x);
t:=0; t1:=0; d:=0;
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
if a[i]>0 then t:=t+a[i];
if (a[i]>0) and (a[i] mod 5=0) then t1:=t1+a[i];
if a[i]=x then inc(d);
end;
writeln('Tong cac so duong trong day A la :',t);
writeln('Tong cac so duong va chia het cho 5 trong day A la :',t1);
write('So lan xuat hien so nguyen X trong day A la :',d);
readln
end.