1 bài tập pascal tuyển chọn

Bài tập pascal: Phân tích số N thành tổng số liền VD1: Nhập N=15 15 = 1+2+3+4+5 15=4+5+6 kết đưa 15=1+2+3+4+5 thỏa mãn toán VD2:Nhập N=8 kết quả: k uses crt; var so,i,N: integer; s,si:string[30]; kt:boolean; begin clrscr; write('Moi ban nhap so N='); readln(N); so:=0;i:=1; s:='1'; while so < N begin so:=so+i; i:=i+1; str(i,si); s:=s+ '+'+ si; end; if so=N then writeln('Ket qua la:',s) else writeln('Ket qua la: bo tay'); readln end -2 Tìm số nguyên dương a nhỏ thỏa mãn: a^a chia hết N (Số lớn) » Cho số ngun X có N chữ số, viết chương trình xóa chữ số X để số có N-1 chữ số có giá trị lớn Ví dụ: - Nếu X=345987 Ta xóa số 3, số thu 45987 số lớn - Nếu X =845987 ta xóa số 4, số thu 85987 số lớn \\\\\\\\\\\\\\\\\\ Cho dãy gồm N số nguyên, viết chương trình đưa hình dãy khơng tăng (khơng giảm) lớn nhất, nhỏ uses crt; var a:array[1 20] of integer; i,j,vt,leng,N, max: integer; begin write('Nhap so N='); readln(n); for i:=1 to n begin write('a[',i,']='); readln(a[i]); end; vt:=1; max:=1; i:=1; while inum) then writeln('So K qua lon') else if k=num then writeln('So o vi tri ',k,' co gia tri la:',istr[length(istr)]) else writeln('So o vi tri ',k,' co gia tri la:',istr[num-k]); readln; end -7 Viết chương trình tính an , với n