uses crt;
var n,t:integer;
begin
clrscr;
n:=0; t:=0;
while t<=100 do
begin
n:=n+1;
t:=t+n;
end;
writeln(n);
readln;
end.
uses crt;
var n,t:integer;
begin
clrscr;
n:=0; t:=0;
while t<=100 do
begin
n:=n+1;
t:=t+n;
end;
writeln(n);
readln;
end.
Câu 8. Viết thuật toán và chương trình hoàn chỉnh sử dụng câu lệnh For … do để tính tổng của 20 số tự nhiên đầu tiên S=1+2+3+...+20 (3 điểm)
Câu 9 (1 điểm). Cho đoạn chương trình: j:= 2;
For i:= 1 to 5 do j:= j + 2;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
Giải thích?
Hãy sử dụng câu lệnh for do và while do để viết chương trình tính tổng B= 1/3+1/6+1/9+...+1/3n
câu 1: viết chương trình tính tổng 100 số tự nhiên đầu tiên sử dụng câu lệnh lặp với số lần chưa biết trước.
câu 2:sử dụng câu lệnh while do hãy viết chương trình tính tích N số tự nhiên đầu tiên.
Giúp mình vs ạ!!!!
Viết chương trình in ra màn hình các số từ 1 => n . Sử dụng câu lệnh while..do
Câu 1: Sử dụng vòng lặp for ... do, viết chương trình tính tổng của 10 số tự nhiên đầu tiên ?Câu 2: Viết chương trình tìm xem có bao nhiêu số dương trong N số nhập vào từ bàn phímCâu 3: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát
Em hãy viết chương trình tính tổng các số chẵn tự nhiên từ 1 đến 100 sử dụng lệnh for...do, while...do
Viết chương trình Pascal sử dụng câu lệnh while ... do và for ... do
S : 1+ 1/2+ 1/3+....+1/n
Viết chương trình sử dụng câu lệnh while ... do để tính trung bình n số thực a1 , a2 , ..... an. Các số n và a1 , a2 , ..... an được nhập vào từ bàn phím
Giúp mình với cảm ơn mng ạ !
viết chương trình tính tổng của các số tự nhiên từ 1 đến 100 KHÔNG DÙNG LỆNH while do