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.

6 tháng 3 2023

Program HOC24;

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

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

s:=0;

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

write('S= ',s:6:2);

readln

end.

7 tháng 3 2023

Còn lệnh while...do mình làm như thế nào ạ?

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.

31 tháng 3 2019

a) uses crt;

var s,n,i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

i:=0;

s:=0;

while i<=n do

begin

inc(i);

s:=s+1/i*(i+2);

end;

writeln(s);

readln

end.

b)

uses crt;

var s,n,i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

i:=0;

s:=0;

while i<=n do

begin

inc(i);

s:=s+1/i;

end;

writeln(s);

readln

end.

25 tháng 3 2019

a) uses crt;

var s,n,i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

i:=0;

s:=0;

while i<=n do

begin

inc(i);

s:=s+1/i*(i+2);

end;

writeln(s);

readln

end.

b)

uses crt;

var s,n,i:longint;

begin

clrscr;

write('Nhap n=');

readln(n);

i:=0;

s:=0;

while i<=n do

begin

inc(i);

s:=s+1/i;

end;

writeln(s);

readln

end.

26 tháng 3 2019

bài 1

program: Tinh _Tong;

var: i,n:integer;S:real;

begin

writeln('nhap so n=');readln(n);

S:=0;

for i:=1 to N do S:=S+1/i*(i+2);

write('tong can tim la',S:0:2);

readln;

end.

26 tháng 3 2019

bài 2

program:Tinh_tong_2;

var:i,n:integer;S:real;

begin

writeln('nhap so N=');

readln(n);

S:=0;

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

writeln('tong can tim la',);

readln;

end.

(bài được làm bởi người giỏi tin nhất khối 8 trường Phạm Đình Quy.)

b) 

uses crt;

var i,n:integer;

t:real;

begin

clrscr;

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

i:=1;

t:=0;

while i<=n do 

  begin

t:=t+1/(i*(i+3));

i:=i+1;

end;

writeln(t:4:2);

readln;

end.

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.

ae nào giúp mình với ạ'

 

14 tháng 11 2021

Bài 3: 

#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
    cin>>n;
    t=0;
    for (i=1; i<=sqrt(n); i++)
        if (i==n/i) t=t+i;
else t=t+i+n/i;
    if (t==n) cout<<"Day la so hoan hao";
    else cout<<"Day khong la so hoan hao";
    return 0;
}

 

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+1/(i*(i+2));

writeln(s:4:2);

readln;

end.

1 tháng 4 2022

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:5:2);

readln

end.