Tuyển Cộng tác viên Hoc24 nhiệm kì 26 tại đây: https://forms.gle/dK3zGK3LHFrgvTkJ6


Những câu hỏi liên quan
T2
Xem chi tiết
T2
15 tháng 1 2022 lúc 8:12

Help

 

Bình luận (0)
NT
15 tháng 1 2022 lúc 8:49

#include <bits/stdc++.h>

using namespace std;

double t;

int i,n;

int main()

{

cin>>n;

t=0;

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

t=t+(1*1.0)/(i*1.0);

cout<<fixed<<setprecision(2)<<t;

return 0;

}

Bình luận (0)
KL
16 tháng 1 2022 lúc 7:46

Var i,n:integer;

s:real;

Begin

Write('Nhap n = ');readln(n);

For i:=1 to n do

s:=s+1/i;

Write('tong la ',s:10:2);

Readln;

End.

Bình luận (0)
H24
Xem chi tiết
DT
Xem chi tiết
ML
28 tháng 4 2023 lúc 22:46

Câu 1:

Program HOC24;

var i,n: integer;

t: longint;

write('Nhap N: '); readln(n);

t:=1;

for i:=1 to n do t:=t*i;

write(n,'! = ',t);

readln

end.

Bình luận (0)
ML
28 tháng 4 2023 lúc 22:47

Câu 2:

Program HOC24;

var i,n: integer;

S: real;

begin

write('Nhap n: '); readln(n);

S:=0;

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

write('S = ',s);

readln

end.

Bình luận (1)
NT
Xem chi tiết
NT
20 tháng 2 2023 lúc 0:38

Câu 6:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

Bình luận (0)
NN
Xem chi tiết
NT
22 tháng 2 2021 lúc 14:56

Bài 1:

uses crt;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=10 to 50 do

  if i mod 2=0 then s:=s+i;

writeln(s);

readln;

end.

Bài 2: 

uses crt;

var a,i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

a:=0;

for i:=1 to n do

a:=a+i*(i+2);

writeln(a);

readln;

end.

Bình luận (0)
LT
Xem chi tiết
NT
17 tháng 2 2021 lúc 11:58

Bài 1: 

function canbac2(x:longint):real;

begin

canbac2:=sqrt(x);

end;

Bài 2: 

function tong(n:longint):longint;

var s,i:longint;

begin

s:=0;

for i:=1 to n do 

  s:=s+i;

tong:=s;

end;

Bình luận (0)
Xem chi tiết
ML
15 tháng 3 2021 lúc 19:03

Program HOC24;

var b: real;

i,n: integer;

begin

write('Nhap n='); readln(n);

b:=0;

for i:=1 to n do b:=b+1/(i+2);

write('B= ',b:1:2);

readln

end.

Bình luận (0)
H24
Xem chi tiết
SM
Xem chi tiết
Xem chi tiết
ML
15 tháng 3 2021 lúc 19:04

Program HOC24;

var a: real;

i,n: integer;

begin

write('Nhap n='); readln(n);

a:=0;

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

write('A= ',a);

readln

end.

Bình luận (0)