Viết chương trình pascal p là số nguyên tố

xin chào mọi người trong diễn đàn
mình là mem mới trong gia đình lớn ddth xin mạo muội nhờ các pro giúp đỡ
chắc có người đọc cho rằng bài thật dễ sao mà ngu thế không biết làm
nhưng quan trọng là mình không biết làm thì phải hỏi đúng không ạ
vậy các pro giúp mình viết chương trình pascal nha.
đề như sau
viết chương trình nhập vào dãy số nguyên dương. tìm và xuất ra màn hình các số nguyên tố trong dãy
yêu cầu:viết chương trình kiểu mảng một chiều, không phải là xét xem số đó có là số nguyên tố hay không, quan trọng hơn là mọi người giúp mình hoàn thành trước ngày thứ 5[21/1/2010]
thanks thanks...........................

đây B1: bảo ng` ta nhập vào mảng a [các phần tử là dưong]
B2:xét các phần tử trong mảng nếu phần tử chỉ chia hết cho một và cho chính nó thì cho vào mảng b
BỨOC này khá quan trộng
for i:=1 to n do [n là số phần tử của mảng đã nhập]
begin
for e:=1 to a[i] do
if [a[i] mod e]=0 then dem:=dem+1;
if dem=2 then begin u:=u+1; b[u]:=a[i];
end;
B3: là bứoc cơ bản xuất mảng b chứa các số nguyên tố trong mảng a
B4: nộp bài

Mình viết thế này không biết có đúng và phải ý bạn không. Bài toán mình nói lại rõ hơn là. Nhập 1 dãy a1..an số nguyên dương [n0] and [n ",n," la: ",tong]; readln END.

Bài 10: In tổng các chữ số của một số

Nhập n bất kỳ sau đó in ra tổng các chữ số của n.

Lời giải:

uses crt; var n,m:longint;tong:byte; BEGIN clrscr; write["Nhap n: "];readln[n]; tong:=0;m:=n; while m>0 do begin tong:=tong+m mod 10; m:=m div 10; end; writeln["Tong cac chu so cua ",n," la: ",tong]; readln END

Bài 11: Kiểm tra số nguyên tố

Nhập vào một số n bất kỳ và kiểm tra xem n có phải là số nguyên tố không.Xem thêm: Nvidia Có Dấu Chấm Than ? Driver Card Rời Laptop Bị Lỗi Dấu Chấm Than

Code mẫu:

uses crt; var n,i:integer; BEGIN clrscr; write["Nhap so nguyen duong n: "]; readln[n]; if n0]] do i:=i+1; if i>trunc[sqrt[n]] then writeln[n," la so nguyen to"] else writeln[n," khong la so nguyen to"]; end; readln END.

Bài 12: Kiểm tra số hoàn hảo

Nhập 1 số nguyên dương n và kiểm tra xem n có phải là số hoàn hảo không.

Lời giải:

Số hoàn hảo là số có tổng các ước [ngoại trừ nó] bằng chính nó. Ví dụ, số 6 có các ước là 1, 2, 3; số 28, 496 cũng là các số hoàn hảo.

Code mẫu:

uses crt; var n:longint;tong,i:integer; BEGIN clrscr; write["Nhap so nguyen duong n: "];readln[n]; tong:=0; for i:=1 to n div 2 do if n mod i=0 then tong:=tong+i; if tong=n then writeln[n," la so hoan hao"] else writeln[n,"khong la so hoan hao"]; readln END.

Bài 13: Kiểm tra số chính phương

Nhập một số nguyên dương n bất kỳ và kiểm tra xem n có phải là số chính phương không.

Code mẫu:

uses crt; var n:longint; BEGIN clrscr; write["Nhap so nguyen duong n: "];readln[n]; if sqrt[n]=trunc[sqrt[n]] then writeln[n," la so chinh phuong"] else writeln[n," khong la so chinh phuong"]; readln END.

Bài 14: Đếm nguyên âm, số trong một chuỗi

Nhập vào một chuỗi ký tự và kiểm tra xem chuỗi có bao nhiêu nguyên âm, bao nhiêu số?

Code mẫu:

uses crt; var s:string;dem1,dem2,i:byte; BEGIN clrscr; write["Nhap 1 chuoi: "];readln[s]; dem1:=0;dem2:=0; for i:=1 to length[s] do begin if s in then dem1:=dem1+1; if s in then dem2:=dem2+1; end; writeln["Trong chuoi ",s," co ",dem1," nguyen am va co ",dem2," ki tu so"]; readln END.

Bài 15: Kiểm tra 3 số có là độ dài cạnh tam giác không

Nhập 3 số a, b, c bất kỳ. Kiểm tra xem 3 số có thể là độ dài 3 cạnh của một tam giác hay không và thông báo ra màn hình.

Code mẫu:

Var a, b, c: Real; BEGIN Writeln ["Nhap do dai 3 canh cua tam giac:"]; Write ["a ="]; Readln [a]; Write ["b ="]; Readln [b]; Write ["c ="]; Readln [c]; If [a + b > c] and [b + c > a] and [c + a > b] and [a > 0] and [b > 0] and [c > 0] Then Writeln ["Thoa man: Day la 3 canh cua mot tam giac"] Else Writeln ["Khong thoa man!"]; Readln; END.

Bài 16: Đếm các số theo điều kiện và tính tổng

Nhập số N bất kỳ. Đếm các số lớn hơn 10 và nhỏ hơn 20 rồi tính tổng của chúng. Sau đó, đưa ra màn hình "So cac so >10 va 10] and [So 10 va

Bài 17: Tìm giá trị lớn nhất của 4 số

Nhập 4 số a, b, c, d. Hãy tìm giá trị lớn nhất của chúng và gán giá trị đó cho biến Max.

Code mẫu:

Var Max, a, b, c, d: Real; BEGIN Writeln ["Nhap gia tri cua 4 so: "]; Write ["a = "] ; Readln [a]; Write ["b = "] ; Readln [b]; Write ["c = "] ; Readln [c]; Write ["d = "] ; Readln [d]; Max:= a; If Max

Bài 18: Xem ngày là thứ mấy trong tuần

Đọc ngày tháng năm, sau đó viết ra màn hình đó là ngày thứ mấy trong tuần.

Code mẫu:

Var Thu, Ngay, Thang: Byte; Nam: Integer; BEGIN Write ["Doc Ngay Thang Nam: "]; Readln [ Ngay, Thang, Nam ]; Nam:= 1900 + [Nam mod 1900]; If Thang

Bài 19: In phiếu báo điểm

Viết chương trình: Nhập số báo danh, nhập điểm văn, toán, Anh. In ra màn hình dưới dạng:

Phiếu Báo điểm:

Số báo danh:

Điểm văn:

Điểm toán:

Điểm ngoại ngữ:

Tổng số điểm:

Bạn đã trúng tuyển: Nếu Tổng số điểm >=20.

Bạn không trúng tuyển: Nếu Tổng số điểm = 15 Then Writeln[" Ban da trung tuyen "]; Else Writeln[" Ban khong trung tuyen "]; Readln; END.

Bài 20: Nhập 2 số thực và tính phép tính theo yêu cầu

Viết chương trình nhập hai số thực. Sau đó hỏi phép tính muốn thực hiện và in kết quả của phép tính đó.

Nếu là "+", in tổng hai số lên màn hình.

Nếu là "-", in hiệu hai số lên màn hình.

Nếu là "/", in thương hai số lên màn hình.

Nếu là "*", in tích hai số lên màn hình.

Code mẫu:

Uses Crt; Var a, b, kq: Real; Pt: Char; BEGIN Clrscr; Write ["a ="]; Readln[a]; Write ["b ="]; Readln[b]; Write ["Phep tinh thuc hien la [+ - * /]: "]; Readln[Pt]; If Pt = "+’ Then kq := a + b; If Pt = "-’ Then kq := a - b; If Pt = "*’ Then kq := a * b; If Pt = "/’ Then kq := a / b; Write [a, pt, b, "=", kq]; Readln; END.Theo Quantrimang.com