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.

1 tháng 7 2023

```cpp
#include <iostream>
#include <vector>
#include <algorithm>

int main() {
int n;
std::cout << "Enter the number of integers (n < 10^5): ";
std::cin >> n;

std::vector&lt;int&gt; numbers(n); std::cout &lt;&lt; &quot;Enter &quot; &lt;&lt; n &lt;&lt; &quot; integers: &quot;; for (int i = 0; i &lt; n; ++i) { std::cin &gt;&gt; numbers[i]; } int sumOfOdd = 0; for (int i = 0; i &lt; n; ++i) { if (numbers[i] % 2 != 0) { sumOfOdd += numbers[i]; } } std::sort(numbers.begin(), numbers.end()); std::cout &lt;&lt; &quot;Sum of odd integers: &quot; &lt;&lt; sumOfOdd &lt;&lt; std::endl; std::cout &lt;&lt; &quot;Sorted sequence: &quot;; for (int i = 0; i &lt; n; ++i) { std::cout &lt;&lt; numbers[i] &lt;&lt; &quot; &quot;; } std::cout &lt;&lt; std::endl; return 0;

}
```

8 tháng 10 2020

Program HOC24;

const fi='Cau1.INP';

fo='Cau2.OUT';

var i,a,b,c,t,d: integer;

f: text;

function ucln(x,y: integer): integer;

var t: integer;

begin

while y<>0 do

begin

t:= x mod y;

x:=y;

y:=t;

end;

ucln:=x;

end;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,a,b,c);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

for i:=b to c do

begin

if i mod a=0 then write(f,i,' ');

t:=t+i;

end;

writeln(f);

while t<>0 do

begin

t:=t div 10;

inc(d);

end;

writeln(f,d);

if ucln(a,b,c)=1 then write(f,1) else write(f,0);

close(f);

end;

begin

ip;

out;

end.

#include <iostream>
using namespace std;
int main()
{
    int n,i,j;
    cout<<"Nhap n="; cin>>n;
    for (i=1; i<=n; i++)
    {
        for (j=i; j<=i+n-1; j++)
            cout<<j<<" ";
        cout<<endl;
    }
    return 0;
}

 

8 tháng 10 2019

program hoidaptinhoc;
uses crt;
var K,N,X,Y,M,i : longint;
z : string;
BEGIN
clrscr;
writeln('Nhap so dong trong moi trang cua quyen sach: '); readln(K);
writeln('Nhap so thu tu cua dong: '); readln(N);
if (N mod K) = 0 then begin X:=N div K; Y:=K end;
if (N mod K) <> 0 then begin X:= (N div K) + 1; Y:=N mod K end;
M:=0;
for i:=1 to X do
begin
str(i,z);
M:=M+length(z);
end;
writeln('X= ',X,' Y= ',Y);
writeln('M= ',M);
readln;
END.

19 tháng 12 2019

1C

2B

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;

}