từ 1 đến N
program TinhTong;
var
N, Tong, Buoc: Integer;
begin
write('N: ');
readln(N);
Tong := 0;
Buoc := 1;
while Buoc <= N do
begin
Tong := Tong + Buoc;
Buoc := Buoc + 1;
end;
writeln('Tong cac buoc tu 1 den ', N, ' la: ', Tong);
readln;
end.
Viết chương trình tính tổng nghịch đảo N số tự nhiên S= 1+1/2+1/3+...+1/N với N được nhập từ bàn phím. (sử dụng câu lệnh lặp for...do hoặc while...do...). Giúp e với ạ
Viết chương trình sử dụng vòng lặp while....do để tính tổng của các số tự nhiên chia hết cho 2 không vượt quá số N cho trước.
Viết chương trình tính tổng S = 3 +6 +9 + … + 90 Sử dụng câu lệnh for do
Viết chương trình tính tổng S = 3 +6 +9 + … + 90 Sử dụng câu lệnh while do
V thuộc T tính tổng các ước N Sử dụng câu lệnh While ... Do
Viết chương trình tính trung bình của N số thực x1,x2,x3,....xn. Các số N và x1,x2,x3....xn được nhập từ bàn phím ( Sử dụng While....do)
Giúp mình với nhé❤️🍀
: Viết chương trình Pascal sử dụng lệnh lặp While..Do tính tổng các số chẵn của số tự nhiên N (100<n<32000) với N được nhập từ bàn phím. Vẽ sơ đồ biểu diễn hoạt động của chương trình trên.
Ví dụ:
Input: Output:
123 2
6616 18
10246 12
hãy viết chương trình sử dụng lệnh lặp while-do, và for...to...do để tính tổng các số tự nhiên từ 1 đến 10.
sử dụng câu lệnh while do viết chương trình tính tổng biết n>2 và được nhập từ bàn phím. t=2+ 3 + 4 +...+n
Viết chương trình sử dụng lệnh while do tính tổng A=2+2/2+2/3+2/4+...2/n ( n nhập từ bàn phím )
