Program bt_1;
Uses crt;
Var Tong, n, i: integer;
Begin
Clrscr;
Writeln(‘nhap n=’);
Readln (n);
Tong:=0;
For i:=1 to n do
If I mod 2 = 1 then Tong:= Tong+i;
Writeln(‘Tong la:’,Tong);
Readln
End.
Viết chương trình tính tổng sau S=1+2+3+... đến khi tổng lớn hơn hoặc bằng 100, dùng câu lệnh While..do.
1/.Tìm số lớn nhất của hai chữ số a và b nhập từ bàn phím(sử dụng lệnh while,if).
2/.Nhập một số n kiểm tra từ 1 đến n có bao nhiêu số chia hết cho 2 và n nhỏ hơn 103 và n lớn hơn hoặc bằng 1.
3/.Viết chương trình in ra các số vừa chia hết cho 5 và chia hết cho 2 với n lớn hơn hoặc bằng 1.
Viết chương trình tính tổng các số tự nhiên từ 1 đến 100.
Viết chương trình tính tổng các số chẵn số tự nhiên từ 1 đến 100.
Cho em hỏi đề bài viết chương tính tổng các số tự nhiên nhỏ hơn hoặc bằng N
Sao cho tổng đó bé hơn hoặc bằng 0
cái này hỏi anh Nguyễn Lê phước Thịnh
2 viết chương trình nhập 1 số n sau đó thực hiện:
a)in các số nguyên tố bé hơn hoặc bằng n
vd: nhập 7->in 2 3 5 7
b)in số nguyên tố lớn nhất ko bé hơn n
vd: n=7 thì in ra 7
n=10 thì in ra 11
c) in các cặp số nguyên tố lẻ bé hơn hoặc bằng n
vd:n=20 thì in ra:
3 5
5 7
7 11
11 13
13 17
17 19
3
Viết chương trình tìm n để S= 1+2+3+...+n < hoặc = 100
