uses crt;
var s,n:longint;
begin
clrscr;
s:=0;
n:=0;
while s<=100000 do
begin
n:=n+1;
s:=s+n;
end;
writeln('So n lon nhat de tong 1+2+3+...+n nho nhat lon hon 100000 la: ',n);
readln;
end.
MÌNH ĐANG CẦN GẤP MỌI NGƯỜI GIÚP MÌNH NHANH NHÉ :)))))
Khởi động chương trình pascal, viết chương trình nhập số ttuwj nhiên n sao cho 5<n<100, nếu nhập sai yêu cầu nhập lại đúng thì tính tổng Sn:
Sn=\(\frac{1.2}{3.4}\)+\(\frac{2.3}{4.5}\)+\(\frac{3.4}{5.6}\)+....+\(\frac{n.\left(n+1\right)}{\left(n+2\right)\left(n+3\right)}\)
- Mình mới dùng nên phân số còn hơi chệch choạc, mong mn thông cảm nhé.
Khởi động phần mềm Turbo Pascal rồi viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? *Yêu cầu: 1) viết chương trình như trên 2) em hãy dịch và sửa lỗi chương trình(nếu có)
1, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím) VD: N=10 A={5,6,15,24,16,17,3,7,12,21} Tổng các số=126
2, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số chẵn trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím) VD: N=10 A={5,6,15,24,16,17,3,7,12,21} Tổng các số chẵn=58
3, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số lẻ trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím) VD: N=10 A={5,6,15,24,16,17,3,7,12,21} Tổng các số lẻ=68
4, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số dương trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím) VD: N=10 A={5,-6,15,-24,16,-17,3,7,-12,21} Tổng các số dương=67 giúp vs ah!!! mk đg cần gấp, camon!!!
Viết chương trình pascal thực hiện tính toán các biểu thức sau:
a) 7.(8 + 5 -2)-30+12
b)(15+5)^2.(6+4)^3
(Mình đg cần mong mn giúp, thanks ạ)
cần gấp mọi người viết chương trình pascal cho em mấy bài này, chiều em làm bài rồi@@
1)Tìm n nhỏ nhát để Sn nhỏ nhất lớn hơn 1000, biết Sn=1+2+...+n
2) IN ra các số chẵn từ 1 đến 100
3)in ra các sô chãn từ 1 đến n
4) in ra các số lẻ từ 1 đến 100
5) tính tổng, tích của n số tự nhiên đầu tiên
Em học pascal lớp 8 nha mọi người
viết 1 chương trình để pascal biểu thị và tính toán được kết quả sau:
-nhập số a
-nhập số b
-tính tổng a+b
-tính hiệu a-b
-tính tích a+b
mọi người giúp em với em không rành về cái này, mọi người giúp em với ạ, em cảm ơn!
Viết chương trình pascal nhập n. Đếm xem từ 1 đến n có bao nhiêu số chia hết cho 7 Làm giúp với !
Viết chương trình tính tổng từ 1 đến 50
Mọi người giúp mình với ạ chìu mk thi rồi!!!
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
