Access To This Page Has Been Denied, Viết Chương Trình Cho Phép Nhập Vào Số Nguyên N(1

Chương trình:

Program SNT;Uses crt;Var n , i :Integer; // Khai bao bien su dung
BEGIN Write(‘Nhap vao mot so:’); // Thong bao nhap lieu Readln(n); // Nhap gtri N, (voi &N la lay d/c bien N) i := round( sqrt(n) ); If( n mod i 0) then // Xuat cau tra loi cuoi cung Writeln(‘ N la so nguyen to’) Else Writeln(‘ N khong la so nguyen to’); Readln;END.

Chương trình kiểm tra số nhân tố trong Pascal

Một số bài tập kiểm tra số yếu tắc pascal

Bài 1: Nhập vào một trong những nguyên ko âm, chất vấn xem nó liệu có phải là số nguyên tố tuyệt 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
Begini:=1;Repeati:= 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 những số nguyên tố nhỏ tuổi hơn hoặc bằng N (N là số nguyên ko âm được nhập từ bỏ 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 Writeln(‘————————–‘);Write(‘Nhap n = ‘);readln(n);If n
Writeln(‘Khong co so nguyen to lớn nao Else
Begin
Writeln(‘Cac so nguyen to lớn For i := 2 to n do
Begint:= 1;Repeatt:= t+1;Until ( i hack t = 0) or ( t*t>i ) ;If( t*t>i) then
Write(i:4);End;Readln;End.

Trong thuật toán Scratch bên trên đã sử dụng thuật toán cộng dồn nhằm đếm số ước, còn vào code pascal thì lại dùng một nghệ thuật khác sẽ là gài để nếu thấy số nguyên bao gồm thêm một mong không phải là 1 trong những và thiết yếu nó thì xác định ngay đó không phải là số nguyên tố.

Rõ ràng là nhì thuật toán trên hơi khác nhau mình thì thích giải pháp viết gài như vào Pascal, các bạn hãy dùng kĩ thuật này nhằm viết lại công tác trong Scratch xem nỗ lực nào nha.

viết chương trình nhập vào một trong những dãy số nguyên n phần tử, n nhập từ bàn phím.

a) In ra màn hình dãy số vừa nhập xếp theo trang bị tự tăng dần.

b) In ra screen các số thành phần trong dãy số vừa nhập và đếm xem sẽ nhập vào bao nhiêu số nguyên tố.

a, Viết lịch trình pascal nhập vào trong 1 dãy số nguyên n từ bàn phímb, in dãy vừa nhập ra màn hình.c, đếm xem bao nhiêu số dương.d, in công dụng số dương ra màn hình.

Program HOC24;

var a: array<1..32000> of integer;

i,n,d: integer;

begin

write('Nhap N: ');

for i:=1 khổng lồ n do

begin

write('A<',i,'>='); readln(a);

end;

write('Day vua nhap la: ');

for i:=1 lớn n vì chưng write(a,' '); writeln;

d:=0;

for i:=1 lớn n bởi if a>0 then d:=d+1;

write('Co ',d,' so duong');

readln

end.