Dùng ngôn ngữ Pascal để in ra tập hợp các số nguyên tố bé hơn biến a(a nguyên dương)
LN
Những câu hỏi liên quan
C1:Viết câu lệnh khai biến x có kiểu số nguyên và hằng a có giá trị bằng 5 trong ngôn ngữ lập trình Pascal. C2: Viết chương trình Pascal để: A) nhập vào 2 số nguyên x, y bất kỳ B) tính tổng 2 số đó C) in ra giá trị của tổng
Câu 2:
uses crt;
var x,y:int64;
begin
clrscr;
readln(x,y);
writeln(x+y);
readln;
end.
Đúng 1
Bình luận (0)
sử dụng ngôn ngữ lập trình pascal. Viết chương trình in ra màn hình
-dòng thứ nhất các số nguyên từ 100->1
-dòng thứ hai số lượng các số nguyên tố
uses crt;
var i,j,kt:integer;
begin
clrscr;
for i:=100 to 1 do write(i:4);
writeln;
for i:=2 to 100 do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình cho phép nhập từ bàn phím một số nguyên dương n và thực hiện:
a. In ra các số nguyên tố bé hơn hoặc bằng n.
b. In ra số nguyên tố nhỏ nhất không bé hơn n. c
. In ra các cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n.
uses crt;
var n,i,o,d:integer;
function ktnt(n:integer): integer;
var i,d:integer;
begin
d:=0;
for i:=1 to sqrt(n) do
if (n mod i=0) then d:=d+1;
if d=2 then ktnt=0
else ktnt=1;
end;
begin
readln(n);
writeln(' so nguyen to be hon hoac bang n la'); {a}
for i:=1 to n do
if ktnt(i)=0 then writeln(i);
writeln('so nguyen to nho nhat khong be hon n');
o:=n;
while o>0 do
begin
if ktnt(o)=0 then
begin
write(o);
break;
end;
o:=o+1;
end;
writeln('cặp số nguyên tố là hai số nguyên lẻ liên tiếp nhỏ hơn hoặc bằng n');
o:=0;
o:=1;
d:=0;
for i:=o+2 to n do
begin
if ktnt(i)=0 then
begin
d:=d+1;
write(i,' ');
if d<2 then continue;
end;
d:=0;
writeln;
end;
readln;
end.
Đúng 0
Bình luận (1)
Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập vào N số nguyên từ bàn phím, tính tổng của các số vừa nhập và in ra màn hình giá trị tổng.
Uses crt;
var n,i,x,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do begin
readln(x);
u:=u+x;
end;
writeln(u);
readln;
end.
Đúng 2
Bình luận (0)
program TongCacSoNguyen;
var
N, i, soNguyen, tong: integer;
begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);
// Khởi tạo tổng
tong := 0;
// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;
// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);
readln;
end.
Đúng 1
Bình luận (0)
Xác định số lượng biến cần thiết và sử dụng ngôn ngữ lập trình Pascal để khai báo các biến cho bài toán sau:
Cho hai số nguyên A và B. Xác định kết quả của A*B và kết quả của A/B.
Giúp mình vs ạ
Chỉ cần hai biến a,b kiểu nguyên là đủ rồi
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 2 số nguyên a,b
yêu cầu
a Tính tích 2 số nguyên a,b hiển thị kết quả trên màn hình
b Kiểm tra a là số nguyên âm hay nguyên dương
Xác định input và output cho bài toán trên
Dùng ngôn ngữ pascal để viết chương trình trên
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a*b);
if (a>0) then writeln('a la so nguyen duong')
else writeln('a la so nguyen am');
readln;
end.
Đúng 0
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)
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)
Viết chương trình nhập vào số nguyên dương n . Tính và in ra màn hình các kết quả sau bằng ngôn ngữ Python : - Số lượng số lẻ từ 0 --> n - Số lượng số nguyên tố từ 0 --> n - Tổng của những số chẵn từ 0 --> n In ra tất cả các số là số chính phương trong phạm vi từ 0 --> n ( nếu có )