Bài 1:
uses crt;
var n,t1,t2,t3,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t1:=0;
t2:=0;
for i:=1 to n-1 do
begin
if i mod 2=1 then t1:=t1+i
else t2:=t2+i;
end;
writeln('Tong cac so le nho hon ',n,' la: ',t1);
writeln('Tong cac so chan nho hon ',n,' la: ',t2);
t3:=0;
for i:=1 to 2*n do
t3:=t3+i;
writeln('Tong cac so trong day so tu 1 toi 2*',n,' la: ',t3);
readln;
end.
Viết chương trình tính tổng các chữ số của một số tự nhiên n được nhập từ bàn phím
viết chương trình thực hiện nhập vào 1 số tự nhiên n,hiển thị các số chẵn từ 1 đến n-1,tính tổng các số chẵn
4. Viết chương trình nhập vào một danh sách các số tự nhiên n phần tử. Đưa ra màn hình các kết quả sau:
- Đếm các phần tử trong danh sách
- Tính tổng các phần tử trong danh sách
- Tính tổng các số chẵn, tổng các số lẻ
- Chèn vào đầu danh sách một giá trị’
- Chèn vào cuối danh sách một giá trị
- Nhập một số tự nhiên x, tìm và xóa trong danh sách các số bằng x
Phần tự luận
Viết thuật toán nhập vào từ bàn phím số nguyên dương N. Tính và đưa ra tổng:
a, Các số từ 1 đến N.
b. Các số lẻ từ 1 đến N
Nhập vào số tự nhiên N từ bàn phím và đưa ra màn hình thông báo: g. N chia hết cho 3 hay không? h. Tổng các số chẵn trong đoạn [1;N]
Số hoàn hảo là số tự nhiên có giá trị bằng tổng các ước thực sự của nó(các ước nhỏ hơn chính nó) V.dụ 1 vài số hoàn hảo 6:1+2+3=6 ;28:1+2+4+7+14=28 Em hãy viết chương trình xác định số hoàn hảo đầu tiên lớn hơn số tự nhiên n được nhập vào từ bàn phím
Viết chương trình nhập một số tự nhiên n (n>100) từ bàn phím? In ra màn hình các số tự nhiên lẽ trong phạm vi từ 50 đến ng (Lưu ý: Các giá trị in ra phải nằm trên cùng một hàng)
Câu 1 : Viết chương trình ( tính tổng các số nguyên tử từ 1 đến 100. Câu 2: Viết chương trình V tính n!(n là số nguyên nhập từ bàn phím)?
viết chương trình tính tổng các số lẻ n nhập từ bàn phím
