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.

23 tháng 7 2021

Uses crt;

var i,n:longint;

     S,A:real;

begin

clrscr;

Readln(A);

S:=0;n:=0;

while S<=A do

  Begin

  S:=0; 

  inc(n);

  for i:= 1 to n do S:=S+1/i;

  end;

Writeln(n);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

freopen("dayd.inp","r",stdin);

freopen("dayd.out","w",stdout);

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++)

if (a[i]>0) cout<<a[i]<<" ";

return 0;

}

8 tháng 9 2021

C++:

#include <iostream>

Using namespace std;

Int main(){

Cin>>n;

Cout<<endl;

Cout<<3*n<<endl;

Return 0;

}

 

8 tháng 9 2021

Viết chương trình Pascal à bạn?

31 tháng 10 2021

Bài 2: 

#include <bits/stdc++.h>
using namespace std;
long long n,i;
//chuongtrinhcon
int demuoc(long long n)
{
    int dem=0;
    for (long long i=1; i<=n; i++)
        if (n%i==0) dem++;
    return (dem);
}
//chuongtrinhchinh
int main()
{
    freopen("tamuoc.inp","r",stdin);
    freopen("tamuoc.out","w",stdout);
    cin>>n;
    long long dem=0;
    for (i=1; i<=n; i++)
        if (demuoc(i)==3) dem++;
    cout<<dem;
    return 0;
}

 

31 tháng 10 2021

1.

#include <bits/stdc++.h>

using namespace std;

int A,n,i;

int main()

{

cin>>n;

A=0;

For (i=0;i<=n;i++)

A=A+1/i;

cout<<A;

Return 0;

}

7 tháng 1 2022

Số N (0<N<10 mũ 9)

7 tháng 1 2022

N = int(input())
A = 0
B = 0
So_uoc = 0
KQ = ""
for x in range(1, N):
    if (x%2==0) and (x%3==0):
        A += 1
    if (x>0) and (N%x==0):
        if (x>B):
            B = x
for i in range(1, N+1):
    if (N%i==0):
        So_uoc += 1
if (So_uoc == 2):
    KQ = "YES"
else:
    KQ = "NO"
print(A)
print(B)
print(len(str(N)))
print(KQ)

(Chẳng biết đúng không đâu bucminh)