program bai1;
uses crt;
var i,n,s:integer;
begin
s:=0;
for i:=1 to 30 do s:=s+i;
writeln(s);
readln
end.
program bai1;
uses crt;
var i,n,s:integer;
begin
s:=0;
for i:=1 to 30 do s:=s+i;
writeln(s);
readln
end.
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
Viết chương trình sử dụng câu lệnh lặp với số lần chưa biết trước để tính tổng của 100 số tự nhiên đầu tiên
14.Câu lệnh lặp For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>; kết thúc khi:
A. Khi <biến đếm> nhỏ hơn <giá trị đầu>
B. Khi <biến đếm> nhỏ hơn <giá trị cuối>
C. Khi <biến đếm> lớn hơn <giá trị đầu>
D. Khi <biến đếm> lớn hơn <giá trị cuối>
giúp mình với
Câu 22 Sử dụng vòng lặp While … do…Để viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng đó nhỏ nhất và lớn hơn 500.
Khi thực hiện các hoạt động lặp, chương trình kiểm tra một điều kiện. Với lệnh lặp:
for < biến đếm > := < giá trị đầu > to < giá trị cuối > do < câu lệnh >;
của Pascal, điều kiện cần phải kiểm tra là gì?
Câu 16: Câu lệnh For..to..do kết thúc:
A. Khi biến đếm nhỏ hơn giá trị cuối
B. Khi biến đếm lớn hơn giá trị đầu
C. Khi biến đếm bằng giá trị cuối
D. Khi biến đếm nhỏ hơn giá trị đầu
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 nhập vào từ bàn phím số nguyên dương n,sử dụng câu lệnh lặp và câu lệnh điều kiện để tính tổng các giá trị là số chẵn trong phạm vi từ 1 đến N,sau đó in ra màn hình
Viết chương trình nhập vào từ bàn phím số nguyên dương n,sử dụng câu lệnh lặp và câu lệnh điều kiện để tính tổng các giá trị là số lẻ trong phạm vi từ 1 đến N,sau đó in ra màn hình