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.

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.)

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 ạ?

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.

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.

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.

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 ạ'

 

Bài 1: 

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('Tong cac so trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Bài 2: 

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;

i:=i+2;

end;

writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

double p1,p2;

int i,n;

int main()

{

cin>>n;

p1=1;

p2=1;

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

{

if (i%2==0) p2=p2*(i*1.0);

else p1=p1*(i*1.0);

}

cout<<fixed<<setprecision(2)<<p1<<endl;

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

return 0;

}

Bài 1: 

uses crt;

var a:real;

i,n:integer;

begin

clrscr;

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

a:=0;

i:=1;

while i<=n do 

begin

a:=a+1/i;

i:=i+1;

end;

writeln(a:4:2);

readln;

end.