{program dem ky tu so; Baøi taäp pascal 11 cô baûn (phaàn 1) V Nguyeãn Vaên Trung Baøi 1 vieát chöông trình nhaäp vaøo moät xaâu s baát kyø Sau ñoù cho bieát xaâu s vöøa nhaäp coù bao nhieâu kí töï so[.]
Bài tập pascal 11 (phần 1) V: Nguyễn Văn Trung Bài 1: viết chương trình nhập vào xâu s Sau cho biết xâu s vừa nhập có kí tự số? Giải: (cách 1) program dem_ky_tu_so; uses crt; var s: string; i, l, dem: byte; begin clrscr; write('nhap xau, s= '); readln(s); dem:=0; for i:=1 to length(s) if (s[i]>='0') and (s[i]=48) and (ord(s[i])='A') and (s[i]3) and (a[i] mod k 0) then b[i]:=true else b[i]:=false; end; writeln; writeln('cac so nguen to mang la: '); for i:=1 to n if b[i]=true then write(a[i]:3); readln; end Trang -6- Baøi tập pascal 11 (phần 1) Giải: (cách 2) program xuat_snt; uses crt; const max=100; type mang=array[1 max] of integer; mang1=array[1 max] of boolean; var a: mang; b: mang1; i, j, k, n: integer; begin write('nhap n= '); readln(n); for i:=1 to n begin write('a[',i,']= '); readln(a[i]); end; writeln('mang vua nhap la: '); for i:=1 to n write(a[i]:3); (*thuat toan kiem tra so nguyen to*) for i:=1 to n begin k:=2; while (a[i] mod k 0) k:=k+1; if k=a[i] then b[i]:=true else b[i]:=false; end; writeln; writeln('cac so nguen to mang la: '); for i:=1 to n if b[i]=true then write(a[i]:3); readln; end Trang -7- V: Nguyễn Văn Trung