2019-12-09T03:36:03+11:00 2019-12-09T03:36:03+11:00 Bài 1: Nhập vào một số nguyên không âm, kiểm tra xem nó có phải là số nguyên tố hay không?
Bài 2: In ra các số nguyên tố nhỏ hơn hoặc bằng N (N là số nguyên không âm được nhập từ bàn phím). Lập trình Pascal, số nguyên tố hay không, các số nguyên tố nhỏ hơn hoặc bằng N
https://baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg Bài 1: Nhập vào một số nguyên không âm, kiểm tra xem nó có phải là số nguyên tố hay không? Program SO_NGUYEN_TO;
Uses crt;
Var i,n: integer;
Begin
Clrscr;
Writeln('KIEM TRA SO NGUYEN TO:');
Writeln('---------------------------');
Write ('Nhap so can kiem tra n = '); readln(n);
If (n=0) or (n=1) then
Writeln(n,' Khong phai la so nguyen
to')
Else
Begin
i:=1;
Repeat
i:= i+1;
Until (n mod i= 0) or (i*i>n);
If i*i>n then Writeln (n,' la so nguyen to')
Else Writeln (n,' khong phai la so nguyen to');
End;
Readln;
End.
Bài 2: In ra các số nguyên tố nhỏ hơn hoặc bằng N (N là số nguyên không âm được nhập từ bàn
phím). Program CAC_SO_NGUYEN_TO;
Uses crt;
Var n,i,t: integer;
Begin
Clrscr;
Writeln('IN RA CAC SO NGUYEN SO <=N');
Writeln('--------------------------');
Write('Nhap n = ');readln(n);
If n<2 then
Writeln('Khong co so nguyen to nao <=',n)
Else
Begin
Writeln('Cac so nguyen to <= ',n,' la:');
For i := 2 to n do
Begin
t:= 1;
Repeat
t:= t+1;
Until ( i
mod t = 0) or ( t*t>i ) ;
If( t*t>i) then
Write(i:4);
End;
Readln;
End.
2020-01-07T03:11:08+11:00 2020-01-07T03:11:08+11:00 Hướng dẫn lập trình Pascal:
Bài 1: Viết chương trình nhập vào một chuỗi kí tự, sau đó nhập vào một kí tự bất kì và đếm số lần của nó trong chuỗi đã nhập.
Bài 2: Viết chương trình nhập vào một chuỗi ký tự, Kiểm tra xem nó có đối xứng hay không (Ví dụ: Chuỗi đối xứng RADAR, MADAM). đếm số lần xuất
hiện trong chuỗi, kiểm tra chuỗi đối xứng https://baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg Bài 1: Viết chương trình nhập vào một chuỗi kí tự, sau đó nhập vào một kí tự bất kì và đếm số lần của nó trong chuỗi đã nhập. Program DEM_SO_KY_TU;
Uses Crt;
Var st:string[30];
x:char;i,dem:integer;
Begin
Clrscr;
Writeln('DIEM SO LAN XUAT HIEN CUA 1 KY TU');
Writeln('------------------------------------------------------');
Write('Nhap chuoi ky tu la:');readln(st);
Write('Nhap ky tu x=');readln(x);
dem:=0;
For i:=1 to length(st) do
If x= st[i] then dem:=dem+1;
Writeln('so lan xuat hien cua ',x,' trong chuoi "', st,'" la: ',dem);
Readln;
End.
Bài 2: Viết chương trình nhập vào một chuỗi ký tự, Kiểm tra xem nó có đối xứng hay không (Ví dụ: Chuỗi đối xứng RADAR,
MADAM). Program CHUOI_DOI_XUNG;
Uses Crt;
Var st:string;
i:integer;
ok:boolean;
Begin
Clrscr;
Writeln('KIEM TRA CHUOI DOI XUNG');
Writeln('----------------------------------------');
Write('Nhap chuoi ky tu: ');Readln(st);
ok:= true;
For i:=1 to length(St)div 2 do
If
st[i]<>st[length(st)-i+1] then
ok:=false;
If ok then
Writeln(st,' la chuoi doi xung')
Else
Writeln(st, ' khong la chuoi doi xung');
Readln;
End.
| 
