Sử dụng For.. do:
Var i,S:integer;
Begin
For i:= 1 to 100 do If i mod 2 = 0 then S:= S+i;
Writeln(' tong cac so chan :',S);
Readln;
end.
Sử dụng While ..do:
Var i,S:integer;
Begin
i:=0;
While i<=100 do If i mod 2 = 0 then S:= S+i;
Writeln(' tong cac so chan :',S);
Readln;
end.
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
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 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?
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
Viết chương trình tính tổng từ 10 đến 100(sử dụng For-dovà While- do)
Viết chương trình tính tổng từ 1 đến 30 chữ số ( sử dụng cú pháp for...do và while...do )
