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
Những câu hỏi liên quan
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
const fi='tep.inp'
fo='tep.out'
var f1,f2:text;
m,n,a:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m,n);
a:=m;
if a>n then a:=n;
kt:=0;
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then kt:=1;
if (kt=0) and (a>1) then writeln(f2,'so nho hon la so nguyen to')
else writeln(f2,'so nho hon khong la so nguyen to');
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào số nguyên n in ra màn hình các số nguyên tố nhỏ hơn và tổng các số nguyên tố đó (pascal)
uses crt;
var n,i,dem,j,t:integer;
kt:boolean;
begin
clrscr;
readln(n);
t:=0;
for i:=2 to n do
begin
kt:=true;
for j:=2 to i-1 do
if i mod j=0 then kt:=false;
if kt=true then
begin
write(i:4);
t:=t+i;
end;
end;
writeln;
writeln(t);
readln;
end.
Đúng 1
Bình luận (0)
câu 1: Cho 1 số nguyên n
- Hãy tính tổng các số từ 1 đến N
- Hãy tính tổng các số chẵn từ 2 đến N
câu 2: Cho 2 số nguyên a và b:
- Tìm Bôi chung nhỏ nhất của a và b
câu 3: Cho 2 số nguyên p và q (p<q). Hãy in ra màn hình các số nguyên tố trong khoảng p và q. Hãy cho biết có bao nhiêu số nguyên tố?
GIÚP MÌNH VỚI MÍ BẠN ƠI:(((((
Câu 1:
uses crt;
var n,i,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t1:=0;
t2:=0;
for i:=1 to n do
begin
t1:=t1+i;
if i mod 2=0 then t2:=t2+i;
end;
writeln('Tong cac so tu 1 den ',n,' la: ',t1);
writeln('Tong cac so chan tu 1 den ',n,' la: ',t2);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var a,b,i,bcnn:longint;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln(bcnn);
readln;
end.
Đúng 0
Bình luận (0)
Câu 3:
uses crt;
var p,q,i,j,kt,dem:integer;
begin
clrscr;
write('Nhap p='); readln(p);
write('Nhap q='); readln(q);
dem:=0;
for i:=p to q do
if i>1 then
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then
begin
write(i:4);
inc(dem);
end;
end;
writeln;
writeln('Co ',dem,' so nguyen to');
readln;
end.
Đúng 0
Bình luận (0)
Nhập số nguyên dương N (1≤ N ≤ 30000) từ bàn phím và đưa ra màn hình thông tin sau :Dòng 1: số M là giá trị biểu thức √1 + √2 + .... + √NDòng 2: số nguyên tố nhỏ nhất còn lớn hơn M*NDòng 3: số tự nhiên nhỏ nhất có số ước bằng phần nguyên của √N, nếu không có in số 0. Mọi Người giúp em với ạ. em đang cần câu trả lời gấp ạ
Đọc tiếp
Nhập số nguyên dương N (1≤ N ≤ 30000) từ bàn phím và đưa ra màn hình thông tin sau :
Dòng 1: số M là giá trị biểu thức √1 + √2 + .... + √N
Dòng 2: số nguyên tố nhỏ nhất còn lớn hơn M*N
Dòng 3: số tự nhiên nhỏ nhất có số ước bằng phần nguyên của √N, nếu không có in số 0.
Mọi Người giúp em với ạ. em đang cần câu trả lời gấp ạ
uses crt;
var n,i:integer;
m:real;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<=n) and (n<=30000);
m:=0;
for i:=1 to n do
m:=m+sqrt(i);
writeln('m=',m:4:2);
readln;
end.
Đúng 1
Bình luận (1)
Câu 1: Tìm ước chung lớn nhất của 2 số m,n nguyên dương,tìm bội chung nhỏ nhất của 2 số m,n nguyên dương? Làm bằng pascal nhe
nhanh nhanh mik với nhe
Câu 1: Tìm ước chung lớn nhất của 2 số m,n nguyên dương,tìm bội chung nhỏ nhất của 2 số m,n nguyên dương? Làm bằng pascal nhe
nhanh nhanh mik với nhe
Lập chương trình nhập vào số nguyên dương N và xuất ra số fibonacci lớn nhất nhỏ hơn N.(Pascal)
Cho số nguyên dương n(n nhỏ hơn hoặc bằng 250) và dãy A gồm n số nguyên dương A1, A2,...An. mỗi số đều không vượt quá 500 .
a/Tính tổng các số là bội của 3
b/tìm giá trị lớn nhất nhỏ nhất của mảng
Xem chi tiết
uses crt;
var a:array[1..250]of integer;
n,i,t,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac so la boi cua 3 la: ',t);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
Đúng 2
Bình luận (0)
Hãy mô tả các điều kiện dưới đây theo ngôn ngữ Pascal:
a) n là 1 số nguyên chai hết cho 3
b) m là 1 số nguyên không chia hết cho 7
c) y là 1 số dương không vượt quá 100
d) tổng 2 số bất kỳ trong 3 số a,b,c luôn lớn hơn số còn lại
e) 2 số a và b khác 0 có cùng dấu
f) a và b là 2 số nguyên tỉ lệ thuận với nhau theo tỉ lệ 3:4
g) Số a5 và tổng 2 số b và c bằng 10; hoặc số ale5 và tổng 2 số b và c bằng -20
h) m nhận 1 trong các giá trị 1,3,5,7,8
Đọc tiếp
Hãy mô tả các điều kiện dưới đây theo ngôn ngữ Pascal:
a) n là 1 số nguyên chai hết cho 3
b) m là 1 số nguyên không chia hết cho 7
c) y là 1 số dương không vượt quá 100
d) tổng 2 số bất kỳ trong 3 số a,b,c luôn lớn hơn số còn lại
e) 2 số a và b khác 0 có cùng dấu
f) a và b là 2 số nguyên tỉ lệ thuận với nhau theo tỉ lệ 3:4
g) Số a>5 và tổng 2 số b và c bằng 10; hoặc số a\(\le5\) và tổng 2 số b và c bằng -20
h) m nhận 1 trong các giá trị 1,3,5,7,8
a) n mod 3=0;
b) m mod 7<>0;
c) y<=100;
d) (a+b>c) and (b+c>a) and (a+c>b);
e) ((a>0) and (b>0)) or ((a<0) and (b<0));
f) a/b=3/4;
g) ((a>5) and (b+c=10)) or ((a<=5) and (b+c=-20));
h) (m=1) or (m=3) or (m=5) or (m=7) or (m=8);
Đúng 0
Bình luận (0)