in ra tất cả các số nguyên tố đối xứng có k chữ số, với k được nhập từ bàn phím (1<=k<=9)
Vd: k=3
101,131,151,181,191,313,...
Làm bằng pascal nha mn giúp mình
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
- Sắp tới mình sẽ tham gia cuộc thi này nha! Không biết lúc đó liệu mọi thứ có được thuận lợi hay không nhưng mình mong sẽ được các bạn ủng hộ nhiệt tình nhất nhé! 💌
- Không hi vọng là 1 giải thưởng cao nhưng mình sẽ cố gắng hết sức để có 1 bài thuyết trình thật ý nghĩa với các bạn! 🎈
Hấp dẫn quá, mình xin slot giải nhất, mọi người nhường mình nha
3 anything
4 anything
5 somebody
6 something
7 anybody - nobody
8 anything
9 Nobody
10 anybody
11 Nothing
13 somewhere
14 anything
15 somebody
B đăng đúng môn để nhận được trợ giúp nhé, nếu còn lần sau mình sẽ xóa câu hỏi.
cảm ơn bạn lúc mik vội nên bấm lộn mất tiêu !!! xin lỗi nha bạn
Kết quả đúng phải là bao nhiêu em ơi, có vậy mới tính được, hiện đề đang thiếu dữ liệu em nhé
\(\dfrac{x}{2}+\dfrac{3}{4}=\dfrac{6}{7}\)
\(\dfrac{x}{2}=\dfrac{6}{7}-\dfrac{3}{4}\)
\(\dfrac{x}{2}=\dfrac{3}{28}\)
\(x\times28=3\times2\)
\(x\times28=6\)
\(x=\dfrac{3}{14}\)
program abcdef;
uses Crt;
var
k, lowerLimit, upperLimit, i, j, reversed, temp, remainder: integer;
isPrime, isPalindrome: boolean;
begin
clrscr;
write('Nhap so chu so k (1<=k<=9): ');
readln(k);
lowerLimit := 1;
for i := 1 to k - 1 do
lowerLimit := lowerLimit * 10;
upperLimit := lowerLimit * 10 - 1;
writeln('Cac so nguyen to doi xung co ', k, ' chu so la:');
for i := lowerLimit to upperLimit do
begin
// Kiểm tra số nguyên tố
isPrime := True;
if i < 2 then
isPrime := False
else
for j := 2 to trunc(sqrt(i)) do
if i mod j = 0 then
beginisPrime := False;break;end;
// Kiểm tra số đối xứng
if isPrime then
begin
reversed := 0;
temp := i;
while temp <> 0 dobeginremainder := temp mod 10;
reversed := reversed * 10 + remainder;
temp := temp div 10;
end;
isPalindrome := (i = reversed);
if isPalindrome then
writeln(i);
end;
end;
readln;
end.