Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên.
Viết chương trình tính tổng các số từ 1 đến 100. Viết chương trình tính tổng các số từ 1 đến N.
Viết chương trình tổng các số chẵn từ 1 đến N.
Viết chương trình tính N giai thừa.
Viết chương kiểm tra xem N có phải số nguyên tố hay không.
Viết chương trình ra màn hình các số nguyên tố nhỏ hơn N.
Viết chương trình vẽ ra hình chữ nhật có chiều ngang là W, chiều dọc là H, với W và H là 2 số nguyên nhập từ bàn phím.
Viết chương trình nhập không giới hạn số, kết thúc khi nhập vào số 0.
Viết chương trình tìm số hạng thứ N của dãy Fibonacci: 1 ; 1 ; 2 ; 3 ; 5 ; 8 ; 11 ; . . . {\displaystyle 1;1;2;3;5;8;11;...}
Viết chương trình tìm ước chung lớn nhất của hai số nguyên.
Hai số nguyên tố cùng nhau là hai số có ước chung lớn nhất là 1. Viết chương trình nhập vào hai số và kiểm tra xem chúng có phải hai số nguyên tố cùng nhau hay không?
Viết chương trình tính tổng S = 1 + 1.2 + 1.2.3 + . . . + 1.2.3... N {\displaystyle S=1+1.2+1.2.3+...+1.2.3...N}
Viết chương trình đếm các chữ số chẵn của nguyên N.
Viết chương trình nhập vào số nguyên N và tìm số nguyên m lớn nhất sao cho 1 + 2 + 3 + . . . + m < N {\displaystyle 1+2+3+...+m M[i] then Begin Tam:=M[i]; M[i]:=M[j]; M[j]:=Tam; End;1.5In dãy số đã sắp xếp Write['Day so sau khi sap xep: ']; For i:=1 to n do Write[M[i],';']; 0.5Phần tử có giá trị tuyệt đối lớn nhất Writeln; Write['Phan tu co gia tri tuyet doi lon nhat:']; if abs[M[1]]>abs[M[n]] then write[M[1]] else write[M[n]];0.5In các phần tử là số chính phương Writeln; Write['Cac phan tu la so chinh phuong: ']; For i:=1 to n do if M[i]>=0 then if sqr[trunc[sqrt[M[i]]]] = M[i] then write[M[i],';'];1.0Tìm và in ra phần tử chính của dãy. Writeln; ok:=false; For i:= 1 to n do Begin xh:=0; For j:=1 to n do if M[i]=M[j] then xh:=xh+1; if xh >= n div 2 then Begin chinh:=M[i]; ok:=true end; End; if ok then write['Phan tu chinh la: ',chinh] else Write['Khong co phan tu chinh']; Readln;End.1.5Bài 2 : [4.0 điểm]Khai báoProgram Cau2abc;Var n,i: integer; tim: boolean;0.5Hàm xem một số là số nguyên tố.Function NT[n:integer]:boolean;Var ok: boolean; i: integer;Begin ok:=true; For i:=2 to n-1 do if n mod i = 0 then ok:=false; if i>=2 then NT:=ok else NT:=false;End;1.0In các số nguyên tố