uses crt;
var i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do if n mod i=0 then write(i:4);
readln;
end.
Viết chương trình nhập vào một số n in ra màn hình tổng số n vừa nhập bằng câu lệnh lập While do
Viết chương trình nhập vào dãy n số nguyên dương tìm và in ra màn hình số lớn nhất trong các số vừa nhập( dùng lệnh while do) giúp mình với ạ
Viết chương trình tính tích các số chẳn và lớn hơn 10 từ 1 đến n. Với n được nhập từ bàn phím, rồi in kết quả ra màn hình
cách 1: sử dụng lệnh for do
cách 2: sử dụng lệnh while do
Hãy viết chương trình Pascal tính tổng của 100 số tự nhiên liên tiếp.
Yêu cầu: Viết 2 chương trình sử dụng 2 dạng câu lệnh for...do và while...do
viết chương trình tính tổng s=1+1/3+1/5+....+1/2n-1 bằng câu lệnh for do và while do
Viết chương trình sử dụng câu lệnh lặp While..do để in ra và tính tổng cho các dãy số sau:
N=1, 2, 4, 6, 8, …,50
M= 0, 4, 8, 12, 16, 20, 32
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang cần gấp rất gấp luôn
Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +n?
a,Bằng lệnh for...do
b,Bằng lệnh while...do
viết chương trình tính tích của n số tự nhiên đầu tiên,với N số tự nhiên được nhập từ bàn phím(sử dụng câu lệnh While..Do
