viết chương trình số nguyên tố họ hàng trong pascal
vd: (3,7)
Những câu hỏi liên quan
Viết chương trình con trong pascal in ra số nguyên tố có hai chữ số chẵn. Giúp với ạ mik đang cần gấp!!
Program HOC24;
var i: integer;
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
for i:= 10 to 99 do if nt(i) and i mod 2=0 then write(i,' ');
readln
end.
Đúng 3
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)
(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.
Đúng 2
Bình luận (1)
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.
Đúng 2
Bình luận (1)
Viết chương trình nhập vào 1 xâu, hãy ĐẾM số kí tự số trong xâu. (Pascal )
VD: Nhập s: 123yuo@hg5
In ra:4
Program hotrotinhoc;
var s: string;
t,c,i: byte;
begin
write('Nhap s:'); readln(s);
t:=0;
for i:=1 to length(s) do
if s[i] in ['1'..'9'] then
begin
val(s[i],c);
t:=t+c;
end;
write(t);
readln
end.
Thu gọn
Đúng 0
Bình luận (1)
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 nhập vào 1 xâu, hãy cho biết tổng của các số trong xâu. (Pascal ) VD: abc1eg22kh123
= 1+22+123=146
CíuuuuuT_T
uses crt;
var st:string;
i,d,t,x,y:integer;
begin
clrscr;
readln(st);
d:=length(st);
t:=0;
for i:=1 to d do
if (st[i] in ['0'..'9']) then
begin
val(st[i],x,y);
t:=t+x;
end;
writeln(t);
readln;
end.
Đúng 2
Bình luận (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.
Đúng 0
Bình luận (0)
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.
Đúng 0
Bình luận (0)
Viết chương trình sử dụng chương trình con (Pascal)
- Tính n! với n nguyên dương?
- Đảo ngược xâu st cho trước?
- Đếm số nguyên dương N có bao nhiêu chữ số?
- Kiểm tra tính đối xướng của một xâu st cho trước?
- Viết ra n số nguyên tố đầu tiên?
- Nhập 1 dãy số nguyên dương, sau đó viết ra số nguyen dương trong dãy?
Cái này mình viết chương trình chính thôi, bạn tự viết ctc nhé
Câu 1:
uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (1)
Câu 2:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
Đúng 1
Bình luận (0)
Câu 3:
uses crt;
var n:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
writeln('So ',n,' co ',length(st),' chu so');
readln;
end.
Đúng 1
Bình luận (0)
Xem thêm câu trả lời
20 tháng 1 lúc 14:52
Viết chương trình Pascal nhập số tự nhiên n từ bàn phím. Xuất ra màn hình:
Các số nguyên tố từ 2 đến n
pascal nha pls
Program HOC24;
var i,d,j,n integer;
begin
readln(n);
for i:=2 to n do
begin
d:=0;
for j:=1 to i do
if i mod j =0 then d=d+1;
if d=2 then write(i,' ');
end;
readln
end.
Đúng 1
Bình luận (0)