uses crt;
var s:real;
a,n:integer;
begin
clrscr;
write('Nhap a='); readln(a);
n:=0;
s:=0;
while s<=a do
begin
n:=n+1;
s:=s+1/n;
end;
writeln(n);
readln;
end.
1.viết chương trình nhập vào mảng A gồm N phần tử (N<= 500) từ bàn phím. Sau đó, tính tổng các phần tử âm chia hết cho cho 7
2.viết chương trình nhập vào mảng C gồm 10 phần tử từ bàn phím. Sau đó xuất ra các phần tử là số nguyên tố
3.viết chương trình tạo nhập vào mảng D gồm K phần tử (K<= 200) từ bàn phím. Sau đó cho biết có bao nhiêu phần tử chẵn có 2 chữ số
mn giúp em giải với ạ
Viết chương trình tinh tổng S=1+2+4+6+...+N (N<10^4, n là số nguyên được nhập từ bàn phim)
Viết chương trình nhập vào mảng A gồm N phần tử (N<= 500) từ bàn phím giá trị các phần tử là các số nguyên đưa ra màn hình mảng vừa nhập với thứ tự các phần tử ngược lại, nhập 3, 6, 8 đưa ra 8, 6, 3. Đếm số phần tử có giá trị lớn hơn 10. Đưa ra màn hình số lượng số nguyên tố trong mảng
Viết chương trình giải các bài toán sau :
(Mỗi bài 1 chương trình)
1) Cho 1 dãy gồm N phần tử .Tính tổng các phần tử CHẴN trong dãy.
2) Cho 1 dãy gồm N phần tử .Tìm giá trị LỚN nhất trong dãy (N \(\le\) 400).
3) Cho 1 dãy gồm N phần tử .Sắp xếp dãy theo chiều TĂNG dần.
CÁC BẠN GIÚP MÌNH VỚI ! CẢM ƠN !
viết chg trình nhập từ bàn phím số nguyên dương N hãy tính và đưa ra màn hình tổng các số chia hết cho 3 trong đoạn từ 1 đến N
Viết chương trình :
Nhập vào giá trị n (n>2) . Tính tổng các giá trị chẵn trong phạm vi từ 2 đến n
Sử dụng câu lệnh while-do
Lập trình tính tổng:
S=\(1^2+2^2+3^2+....+n^2\) ( n được nhập vào từ bàn phím ) .
Viết chương trình tính tổng của một cấp số cộng có n phần tử biết phần tử thứ nhất là A và D là công sai được nhập từ bàn phím.
Gợi ý:
- Tổng n số hạng của cấp số cộng là: Sn=n(A+D)/2
