Những câu hỏi liên quan
Trần Việt Long
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 20:43

Sửa đề: S=1/1+1/2+1/3+...+1/n

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

  s:=s+1/i;

writeln(s:4:2);

readln;

end.

Bình luận (0)
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 22:11

program tong;

uses crt;

var n,i:integer;

t:longint;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  t:=t+1/i;

writeln(t);

readln;

end.

Bình luận (0)
Lâm Khả Doanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:28

1:

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

t:=t+i*i;

write(t);

readln;

end.

Bình luận (0)
Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:21

2

program bt2;

var i,n,t:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

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

readln;

end.

Bình luận (0)
foxbi
Xem chi tiết
HT.Phong (9A5)
18 tháng 3 2023 lúc 8:11

Uses crt;

var n,i,s: integer;

begin clrscr;

readln(n);

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

writeln(s);

readln;

end.

Bình luận (0)
42. Nguyễn Thị Thanh Tuy...
Xem chi tiết
Vô danh
16 tháng 3 2022 lúc 8:27

Var i,S,n: longint;

Begin

Readln(n);

For i:=1 to n do S:=S+i

Write(S);

Readln

End.

Bình luận (0)
Ynasuya
16 tháng 3 2022 lúc 8:46

program Tinh_tong;

Var n: integer;
s: longint;
BEGIN
repeat
write( 'Nhap n: '); readln(n);
until (n>=0);
s:=0;
for i:=1 to n do
s:=s+i;
write('Tong cac so tu 1 toi ', n,' =', s);
readln
END.

Bình luận (0)
Cao Cự Quân
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 12 2021 lúc 23:07

#include <bits/stdc++.h>

using namespace std;

long long s,i,n;

int main()

{

cin>>n;

s=0;

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

s=s+i;

cout<<s;

return 0;

}

Bình luận (0)
Lê Chiêu Nguyên	Vũ
5 tháng 4 2023 lúc 21:11

program Tingtongs;

uses crt;

var n,i:integer; s:longint;

begin

clrscr;

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

for i:=1 to n do s:=s+i;

write('Tong la: ',s);

readln;

end.

Bình luận (0)
Nguyễn Thị Ngọc Oanh
Xem chi tiết
ttanjjiro kamado
19 tháng 1 2022 lúc 20:29

var i,n: integer;

       s:real;

begin

write(‘Nhập n: ‘); readln(n);

i:=1;

repeat 

s:=s+1/i;

i:=i+1;

until i=n;

write(‘s =‘, s:0:4);

readln

end.

 

      diepbichdiepbich  016/08/2021 at 03:53Reply

Program Hotboy ;

Uses crt; 

Var n,i,s : real;

Begin

Writeln(‘nhap n’);  readln(n);

Repeat 

S:=S+ 1/i;

I:=i+1 ; 

Until n=i; 

Writeln(‘S=’,S);

Readln

End.

Bình luận (3)
ttanjjiro kamado
19 tháng 1 2022 lúc 20:29

bạn tham khảo nha

Bình luận (0)
Nguyễn Lê Phước Thịnh
19 tháng 1 2022 lúc 23:30

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

readln(n);

s:=0;

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

writeln(s:4:2);

readln;

end.

Bình luận (0)
Thảo My Lê Phương
Xem chi tiết
Kiều Vũ Linh
29 tháng 3 2022 lúc 8:33

var i,n,s:integer;

begin

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

i:=1;

while i<=n do

begin

s:=s+i;

i:=i+1;

end;

write('Tong la ',s);

readln;

end.

Bình luận (0)
nuinuini
Xem chi tiết
Lê Anh Phú
Xem chi tiết