uses crt;
var a:array[1..10000000] of longint;
i,n,d:longint;
s:real;
begin
clrscr;
s:=1/2;
write('Nhap n la ');readln(n);
for i:=1 to n do
s:=s+(1/(2*i+1));
write('Tong la ',s:0:2);
readln
end.
Viết chương trình tính tổng S = 1+2+3+...+1/n. Trong đó n là số nguyên được nhập từ bàn phím
viết chương trình tính tổng S=1+2+3+...+n.Trong đó n là số nguyên nhập từ bàn phím
viết chương trình tính tổng n số tự nhiên : S =1+2+3+...+ n, với n là số tự nhiên được nhập từ bàn phím ( có sử dụng khai báo biến mảng )
Em hãy viết chương trình tính tổng các số chẵn từ 1 đến N trong đó N là số được nhập từ bàn phím (N<=100)
Em hãy viết chương trình tính tổng các số lẻ từ 1 đến N trong đó N là số được nhập từ bàn phím (N<=100)
viết chương trình tính tổng :S = 5+10 +15+...+n. trong đó số nguyên nhập từ bàn phím
1.Viết chương trình nhập số nguyên n. Hãy tìm chữ số lớn nhất của n.
2. Viết chương trình nhập từ bàn phím 2 số nguyên a và b. Tìm BCNN của a và b
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện
+ dòng 1 xuất ra màn hình dãy số vừa nhập
+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?
+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?
+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?
+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!
