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.

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.

4 tháng 4 2023

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.

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.

4 tháng 4 2023

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.

10 tháng 12 2021

#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;

}

5 tháng 4 2023

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.

18 tháng 3 2023

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.

29 tháng 3 2022

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.

Câu 1: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do

s:=s*i;

writeln(s);

readln;

end.

Câu 2: 

uses crt;

var t,i,n:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

t:=t+i;

writeln(t);

readln;

end.

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.

a: uses crt;

var s,i,n:integer;

begin

clrscr;

readln(n);

s:=0;

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

writeln(s);

readln;

end.

b: 

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/i;

writeln(s:4:2);

readln;

end.

c: 

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/i;

writeln(s+1/(n+1):4:2);

readln;

end.