Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
2 tháng 1 2022 lúc 21:48

b: uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 5 do 

 s:=s+i;

writeln(s);

readln;

end.

Minh Lê
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 2 2022 lúc 16:26

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

  s:=s+(n*(n+1))/((n+2)*(n+3));

writeln(s:4:2);

readln;

end.

Nguyễn Cao Kỳ Uyên
Xem chi tiết
Phía sau một cô gái
8 tháng 3 2023 lúc 22:49

Câu a:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n+1):

     S += i

print("Tổng S =", S)

Câu b:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n, 2):

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

     for i in range(1,n+1):

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

 

NGUYỄN CHÍ tiến
9 tháng 3 2023 lúc 21:16

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n+1):

     S += i

print("Tổng S =", S)

Câu b:

n = int(input("Nhập số nguyên n: "))

S = 0

for i in range(1, n, 2):

     S += i

print("Tổng S =", S)

Câu c: 

def calc_sum(n):

     s=0

     for i in range(1,n+1):

          s += 2*i

     return s

n = int(input("Nhập vào số n: "))

print("Tổng S=2+4+6+...2n là:",calc_sum(n))

nana
Xem chi tiết
NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.

Lê Thanh Tuyền
Xem chi tiết
Nguyễn Lê Phước Thịnh
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;

Lê Anh Phú
Xem chi tiết
Trần Hằng
Xem chi tiết
Đỗ Tuệ Lâm
7 tháng 2 2022 lúc 21:47

Thuật toán: B1: Nhập N;

B2: A <--- 0; i <--- 1;

B3: A <--- A + ((2*i)/(2*i+1));

B4: i <--- i + 1;

B5: Nếu i > N thì thông báo A rồi kết thúc.

B6: Quay lại bước 3;

undefined

Linh Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 3 2022 lúc 9:22

a: uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

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

writeln(s:4:2);

readln;

end.

b: 

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

s:=0;

i:=0;

while i<=100 do 

begin

inc(i);

s:=s+1/i;

end;

writeln(s:4:2);

readln;

end.

Pham Huynh Bao Thy
Xem chi tiết