uses crt;
var i,s : integer;
begin clrscr;
s:=0;
While i<=20 then begin
s:=s+i;
i:=i+1;
end;
readln('Tong so tu nhien nho hon 20 la', s);
readln
end.
uses crt;
var i,s : integer;
begin clrscr;
s:=0;
While i<=20 then begin
s:=s+i;
i:=i+1;
end;
readln('Tong so tu nhien nho hon 20 la', 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
1.Viết chương trình tính tổng các số tự nhiên từ 100 đến 1000.
giúp mình nhé
viết chương trình tìm số tự nhiên n sao cho tổng các số tự nhiên liên tiếp từ 1 đến n là tổng lớn nhất nhỏ hơn 500
viết chương trình nhấp số tự nhiên N từ bàn phím và in ra màn hình các số lẻ nhỏ hơn hoặc bằng N
Bài 1: Viết chương trình nhập số nguyên dương n. Tính tổng các số chẫn chia hết cho 3 nhỏ hơn hoặc bằng n
Bài 2: Viết chương trình nhập vào 3 số nguyên dương a, b, c. Tìm ước chung lớn nhất của 3 số
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?