uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=3 to n do
if i mod 2=1 then s:=s+2/(i*(i+2));
writeln('Ket qua la: ',s:4:2);
readln;
end.
uses crt;
var s:real;
n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=3 to n do
if i mod 2=1 then s:=s+2/(i*(i+2));
writeln('Ket qua la: ',s:4:2);
readln;
end.
Viết chương trình nhập 10 phần tử cho mảng A tính tổng các số trong dãy tổng các số lẻ tổng các số chẳng
Giúp mình giải với ạ😢❤
help me hu hu
lập phương trình
1 ) cho dãy số 3; 1; 7; 9; 5
cho phép 3 lần đổi chỗ, mỗi lần được đổi chỗ 2 số bất kì. em hãy sắp xếp lại dãy số trên theo thứ tự tăng dần.
viết CT passcal nhập vào một dãy số nguyên và In ra các số dương trên cùng một dòng các số âm trên dòng tiếp theo
giúp mik vs
Bài 1 viết ct hoàn chỉnh in ra màn hình 5 lần dòng Việt Nam Hết Dịch - sô lần in ra đc nhập từ bàn phím
Bài 2 viết ct tính tổng 20 số tự nhiên liên đầu liên tiếp - số tự nguên cần tính tổng đc nhập từ bàn phím
Viết chương trình nhập N phần tử có giá trị nguyên
a)in dãy số vừa nhập
b) tính tổng số lẻ trong dãy số
c) sắp xếp lại dãy số tăng dần
giúp mil vs ạ! mik đang cần gấp, cảm ơn!
Viết Ct tính tổng A=1+2+3+...+n và in kết quả .(n nhập từ phím 20>n>2)
hãy viết 1 CT passcal nhập vào 1 mảng các số nguyên bất kì ,ghi ra màn hình các số dương lớn hơn 1 và lẻ trong mảng
Viết chương trình nhập vào dảy số 7 9 2 5 8 4 3 6 sau đó sắp xếp dảy số này theo thứ tự tăng dần rồi in kết quả sắp xếp được ra màn hình
Câu 1: Viết CT nhập 1 dãy số nguyên gồm N phần tử in ra mà hình các phần tử có giá trị chẵn (N nhập từ bàn phím)?
Câu 2: Viết CT nhập 1 dãy số nguyên gồm N phần tử in ra mà hình tích của dãy số vừa nhập (N nhập từ bàn phím)?
Câu 3: Viết Ct nhập 1 dãy số nguyên gồm N phần tử in ra mà hình tổng các phần tử lẻ trong mảng?
**Giúp mình với, sáng mai mình phải nộp rồi ạ**