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
Trang Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 12 2020 lúc 20:08

tức là từ a cộng mấy đến a+n vậy bạn?

Lê Thị Cẩm Giang
Xem chi tiết
Minh Lệ
14 tháng 3 2023 lúc 19:39

Sửa lại đề bài : \(A=....+\dfrac{1}{n\left(n+2\right)}\)

Program HOC24;

var i,n: integer;

a: real;

begin

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

a:=0;

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

write('A = ',a:6:2);

readln

end.

Ánh Dương
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 3 2021 lúc 20:22

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.

Ngáo Ngơ Alice
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 20:50

Bài 1: 

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/(2*i+1);

writeln(s:4:2);

readln;

end.

Bảo Châu
Xem chi tiết
Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:07

bài 1

Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:12

Bùi Anh Tuấn
4 tháng 5 2021 lúc 20:23

BÀI 3

uses crt;
var a: array[1..100] of integer;
i,n,max,s,j: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
max:=a[1];
s:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
end;
writeln('so lon nhat trong day tren la:',max);
writeln('tong bang:',s);
writeln('so nguyen to trong mang la:');
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);
until (a[i] mod j=0);
if j>(a[i] div 2) then writeln(a[i]);
j:=1;
end;
readln
end.

 

Trần Tuấn Anh
Xem chi tiết
Người Rep Dạo
19 tháng 2 2021 lúc 17:26

Nguyễn Lê Phước Thịnh
19 tháng 2 2021 lúc 19:23

uses crt;

var s:real;

a,n:integer;

begin

clrscr;

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

n:=0;

s:=0;

while s<=a do 

  begin

n:=n+1;

s:=s+1/n;

end;

writeln(n);

readln;

end.

Nguyễn Cát Tường
Xem chi tiết
hoàng kim
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:25

Bài 1: 

uses crt;

var a:array[1..100]of integer;

i,n,min:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do 

if min>a[i] then min:=a[i];

writeln(min);

readln;

end.

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:26

Bài 2: 

uses crt;

var a:array[1..100]of integer;

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do 

 if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

Dấu tên
Xem chi tiết
Dấu tên
28 tháng 11 2021 lúc 7:26

Giups mình nhanh vs