Var i,n:integer;
S:real;
Begin
Write(' nhap n : ');
Readln(n);
S:=1;
For i:= 1 to n do S:= S+1/i*(i+1);
Writeln (' tong cac so :',S);
Readln;
end.
viết chương trình tính an biết a[1]=1, a[2]=1, ai=a[i-1]+1 nếu n lẻ, ai=a[i-1]+a[i-2]+...+a[1] nếu i chẵn trong pascal
Hãy viết chương trình pascal thực hiện các công việc sau
a ) Nhập vào 1 dãy số nguyên
b ) Hiện thị dãy số vừa nhập
c ) Tính trung bình công của dãy số đó
d ) Hiện thị các số là bội của 3
e ) Hiện thị các số lẻ là bội của 5
f ) Tìm số lớn nhất có trong dãy
g ) Đưa số lớn nhất lên đầu dãy nhưng không làm mất các giá trị có trong dãy
h ) Tính trung bình cộng số thứ 8 và số thứ 10 ở trong dãy
Mai mình thi rồi , mong mọi người giúp e vs ạ
Viết chương trình tính tổng sau ( trong đó là số tự nhiên được nhập từ bàn phím )
A = 1 + 1/2 + 1/3 ... 1/n (n e z)
Viết thuật toán tính tổng các số chẵn trong dãy A gồm các số a 1, a 2,....,a n
bài 1: viết chương trình tính tổng sau
S=1+2+3...+N
bài 2: viết chương trình pascal sử dụng biến mảng để tính tổng của dãy số, dãy số gồm n số nguyên nhập từ bàn phím.
bài 3: viết chương trình pascal nhập vào số báo danh của 5 bạn học sinh ( tên học sinh cho trước) số báo danh nhập từ bàn phím sau đó in số báo danh kèm tên ra ngoài màn hình
Nhập vào 1 mảng gồm n phân tử thực hiện các công việc sau : + Sắp xếp thành dãy tăng dần + tính tổng các số dương chia hết cho 3 + in ra màn hình số nguyên tố
Làm giúp mình bài này với ạ,mình đang cần gấp
Em hãy viết chương trình Pascal để tính tổng của dãy số An(A1,A2,A3, ...,An) với n được nhập từ bàn phím.Em hãy viết chương trình để in ra tổng các số chẵn của dãy An
1)viết chương trình pascal nhập dãy số nguyên n phần tử từ bàn phím. tính và in ra màn hình tổng của dãy số đó.
2)viết chương trình pascal nhập dãy số nguyên n phần tử từ bàn phím. tính và in ra màn hình tổng của dãy số dương.
Giúp mình vs mình cảm ơn!!
viết ct nhập 1 dãy số gồm n số từ bàn phím, in ra dãy vừa nhập, in ra số lẻ, chẳn trong dãy, tính tổng các số chẳn và lẻ, tính trung bình cộng các số