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
Ngân
Xem chi tiết
Đinh Yến Phụng
Xem chi tiết
lê thiện thanh ngân
Xem chi tiết
Bacteria
21 tháng 12 2016 lúc 13:53

program bai_5;

uses crt;

var a,b,c :real;

BEGIN

write('nhap vao so a'); Readln(a);

write('nhap vao so b'); Readln(b);

write('nhap vao so c'); Readln(c);

if a<0 then a:=-a;

max:=a;

if max <b then max:=b;

if max<c then max:=c;

write('gia tri tuyet doi cua a la:',a);

write('so lon nhat trong ba so a,b,c la:',max);

Readln

END.

Thanks

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.

fqfqfqfqfq
Xem chi tiết
datcoder
7 tháng 12 2023 lúc 20:39

Bạn kiểm tra lại đề nha; M, N có liên quan gì đến tổng S bạn nhỉ?

Kamato Heiji
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 1 2021 lúc 18:54

Thuật toán: 

Bước 1: Nhập n

Bước 2: i←1; a←0;

Bước 3: a←a+1/(i*(i+2));

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: xuất a

Bước 7: Kết thúc

Viết chương trình:

uses crt;

var a:real;

i,n:longint;

begin

clrscr;

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

a:=0;

for i:=1 to n do

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

writeln(a:4:2);

readln;

end.

Bùi Anh Tuấn
25 tháng 1 2021 lúc 19:38

lê Liên
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 2 2022 lúc 23:37

Câu 3: 

uses crt;

var s,i,n,t:int64;

begin

clrscr;

readln(n);

s:=1;

t:=0;

for i:=1 to n do 

begin

t:=t+i;

s:=s*i;

end;

writeln(t);

writeln(s);

readln;

end.

Nguyễn Ngọc Bảo Ngân
Xem chi tiết
Nguyễn Ngọc Bảo Ngân
8 tháng 5 2022 lúc 13:57

trả lời 1 câu mà bạn bt làm thôi . cx đc

Ne Su
Xem chi tiết
An Phú 8C Lưu
28 tháng 11 2021 lúc 9:29

THAM KHẢO:

uses crt;

var a,cv,dt:integer;

begin

clrscr;

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

cv:=a*4;

dt:=sqr(a);

if a>0 then

begin

writeln('chu vi hinh vuong la: ',cv);

writeln('dien tich hinh vuong la: ',dt);

end

else writeln('vui long nhap so a lon hon 0');

readln;

end.