làm theo dạng tệp pascal: Nhập 2 số tự nhiên n, m tính giai thừa số lớn hơn Xác định số nhỏ có phải số nguyên tố hay không
Xác định bài toán: “ kiểm tra n có phải là số nguyên tố hay không? ” *
A.Input: n là số nguyên tố; Output: Nhập số n
B.Input: Nhập số n; Output: n là số nguyên tố
C.Input: n là số nguyên tố hoặc n không là số nguyên tố; Output: Nhập số n
D.Input: Nhập số n; Output: n là số nguyên tố hoặc n không là số nguyên tố
1. chứng tỏ rằng
a . Mọi số nguyên tố lớn hơn 2 đều viết dưới dạng 4n+ 1 hoặc 4n-1( n thuộc n*)
b. Có phải mọi số tự nhiên có dạng 4n+1 hoặc 4n-1 ( n thuộc N*) đều là số nguyên tố hay không
VD: 25=4.6+1=52
15=4.4-1=3.5
Bạn chỉ cần lấy ví dụ đơn giản cho bài như thế là được
kho nhi . ba con co bacoi cho con xin ot cai ****
Bài 2:Viết chương trình cho phép nhập số nguyên dương N rồi thực hiện
a. cho biết N có phải là lũy thừa ba của một số hay không
b. Viết N dưới dạng một lũy thừa với số mũ là số tự nhiên của 5, viết không nếu N không phải là lũy thừa của 5
c. Tìm số dư khi N mũ n chia cho 7
Mik cần gấp ạ, giúp mik với và bằng Pascal nhé!!!!
Làm bằng pascal thì những bài như thế này thì test lớn chạy không nổi đâu bạn
#include <bits/stdc++.h>
using namespace std;
long long n,a,b;
int main()
{
cin>>n;
a=1;
while (pow(a,3)<=n)
{
a++;
}
if (pow(a,3)==n) cout<<"YES";
else cout<<"NO";
cout<<endl;
b=1;
while (pow(5,b)<=n) do b++;
if (pow(5,b)==n) cout<<"YES";
else cout<<"NO";
cout<<endl<<pow(n,n)%7;
return 0;
}
Khởi động phần mềm Turbo Pascal rồi viết chương trình nhận biết một số tự nhiên N được nhập vào từ bàn phím có phải số nguyên tố hay không? *Yêu cầu: 1) viết chương trình như trên 2) em hãy dịch và sửa lỗi chương trình(nếu có)
uses crt;
var i,n,kt:integer;
begin
clrscr;
readln(n);
kt:=0;
for i=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then write('phai')
else write('Khong phai');
readln;
end.
Var i,n,souoc:integer;
Begin
While n <= 1 do
Begin
Write('Nhap n = ');readln(n);
End;
For i:=1 to n do
If n mod i = 0 then souoc:=souoc+1;
If souoc = 2 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
Bài 1
Var s,i:integer;
tb:real;
Begin
Write('Nhap n = ');readln(n);
i:=1;
s:=0;
While i<=n do
Begin
s:=s+i;
i:=i+1;
End;
tb:=s/n;
Writeln('Tong la ',s);
Write('Trung binh la ',tb:10:2);
Readln;
End.
Bài 2
Var i,n,souoc:integer;
Begin
Write('Nhap n = ');readln(n);
i:=1;
While i <= n do
Begin
i:=i + 1;
If n mod i = 0 then souoc:=souoc + 1;
End;
If souoc = 1 then write(n,' la so nguyen to')
Else write(n,' khong la so nguyen to');
Readln;
End.
Viết chương trình để tính và thông báo lên màn hình T=n!+m!.Với m,n là hai số nguyên nhỏ hơn 50 được nhập từ bàn phím .
Yêu cầu:Chương trình có khai báo và gọi hàm tính giai (k!)
Giúp em giải theo dạng pascal với ạ..em cảm ơnnnn..
uses crt;
var t,n,m:longint;
//chuongtrinhcon
function gt(k:longint):longint;
var i,a:integer;
begin
a:=1;
for i:=1 to k do
a:=a*i;
gt:=a;
end;
//chuongtrinhchinh
begin
clrscr;
readln(n,m);
writeln(gt(n)+gt(m);
readln;
end.
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
uses crt;
var a:array[1..100]of integer;
i,n,t,kt,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
kt:=0;
for j:=2 to trunc(sqrt(t)) do
if t mod j=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
readln;
end.
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
uses crt;
var a:array[1..100]of integer;
i,n,t,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac so vua nhap la: ',t);
if t>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
end
else writeln(t,' khong la so nguyen to');
readln;
end.
Cho 2 số nguyên m và n. Hãy tính tổng của N số nguyên tố nhỏ nhất và lớn hơn M. Pascal
Program HOC24;
var m,n,i,d: integer;
t: longint;
function nt(x: integer): boolean;
var j: integer;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(x)) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
begin
write('Nhap m: '); readln(m);
write('Nhap n: '); Readln(n);
d:=0; i:=2;
while d<n do
begin
if nt(i) and (i>m) then
begin
d:=d+1;
t:=t+i;
end;
i:=i+1;
end;
write('Ket qua: ',t);
readln
end.