uses crt;
var n,i:integer;
s:real;
{------------------chuong-trinh-con----------------------}
function gt(var x:integer):real;
var t:longint;
tich:real;
begin
t:=1;
tich:=0;
for i:=1 to n do
begin
t:=t*i;
tich:=tich+1/t;
end;
gt:=tich;
end;
{---------------------chuong-trinh-chinh-------------------}
begin
clrscr;
write('nhap n='); readln(n);
s:=gt(n);
writeln('tong cua day la: ',s:4:2);
readln;
end.
viết chương trình tính biểu thức s=1-x+x^2/2!-x^3/3!+.....+(-1)^n*x^n/n!
1,viết chương trình in ra màn hình 10 chữ O ra màn hình, mỗi chữ O trên 1 dòng và dừng trong khoảng thời gian là 2 giây
2,viết chương trình tích P sau đây(với n là số tự nhiên được nhập vào bàn phím) P= 1*1/2*1/3*...*1/n
viết chương trình tính tổng T=1+\(\dfrac{1}{2}\)+\(\dfrac{1}{3}\)+...+\(\dfrac{1}{n}\). trong đó n là số nguyên nhập từ bàn phím
Bài 1: Viết chương trình nhập vào 2 số nguyên A và B, in ra hú tự từ bé đến lớn.
Bài 2: Viết chương trình tính tổng: 1+1/2+1/3+1/4....+1/9
Viết chương trình Pascal cho hai thuật toán sau: Thuật toán 1: Bước 1: T:=0; n:=0 Bước 2: Nếu T >20 chuyển về bước 4 Bước 3: n:= n+2; T := T+n; Quay lại bước 2 Bước 4: Thông Bảo T; Kết thúc thuật toán
Vẽ lưu đồ thuật toán: S = x1 + x2 + x3 + ... + xn
Help me!!
Viết chương trình nhập vào số nguyên n (n<103) và dãy n số nguyên {a1, a2, ..., a3}
Yêu cầu:
- In lên mảng vừa nhập lên màn hình trên cùng 1 hàng
- In lên màn hình các phần tử có giá trị chẵn
VD: n=5 {3; 5; 8; 1; 60}
Kết quả:
3 5 8 1 60
C++ nhé, giúp e với ạ;-;
câu 1: a, viết chương trình nhập vào 1 dãy n số nguyên từ bàn phím .In ra dãy đã nhập ra màn hình
b, đếm xem có bao nhiêu số chẵn trong dãy? có bao nhiêu số chẵn chia hết cho 5 trong dãy
câu 2: viết chương trình P=1+2+3+....+n với n là số nguyên nhập từ bàn phím
nhập n là số nguyên từ bàn phím và thực hiện + nếu n là số Chẵn thì S=2+4+6+.....+n + nếun là số lẻ thì S=1+3+5+...+n
giup minh vs mn
