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.
import math
def is_prime(n):
if n <= 1:
return False
for i in range(2, int(math.sqrt(n))+1):
if n % i == 0:
return False
return True
T = input("Nhập chuỗi T: ")
max_prime = None
for s in T.split():
if s.isnumeric():
n = int(s)
if is_prime(n):
print(n)
if max_prime is None or n > max_prime:
max_prime = n
if max_prime is None:
print("Không có số nguyên tố trong chuỗi")
else:
print("Số nguyên tố lớn nhất là:", max_prime)
#include<bits/stdc++.h>
using namespace std;
#define ll long long
const ll maxn = 1e6 + 1;
long long prime[maxn];
void snt(){
for(int i = 0; i < maxn; i++)
prime[i] = 1;
prime[0] = prime[1] = 0;
for(int i = 2; i * i < maxn; i++)
{
if(prime[i] == 1)
for(int j = i*i; j < maxn; j+=i)
prime[j] = 0;
}
}
int to_ll(const string &s){
long long sum = 0;
for(int i = 0; i < s.size(); i++)
sum = sum * 10 + (s[i] - '0');
return sum;
}
int main(){
ios::sync_with_stdio(0);
cin.tie(0);
string s;
cin >> s;
//Test1234#password5426
snt();
long long P = -1;
for(int i = 0; i < s.size(); i++)
{
if(s[i] >= '0' && s[i] <= '9')
for(int j = i; j < s.size(); j++)
{
if(s[j] >= '0' && s[j] <= '9')
{
string res = s.substr(i,j - i + 1);
long long a = to_ll(res);
if(prime[a] == 1)
P = max(a,P);
}
else break;
}
}
cout << P;
}
Chương trình:program bai_10_chuong_4;uses crt;vars: string[100];i, dem: integer;Beginclrscr;write('Nhap xau vao:'); readln(s); dem:= 0;for i:= 1 to length(s) doif ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;Writeln('Trong xau s co '»dem,' chu so thap phan');readln;End.
uses crt;
var st1:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st1);
d:=length(st1);
for i:=1 to d do
if (st1[i]='a') and (st1[i+1]='b') and (st1[i+2]='c') then delete(st1,i,3);
writeln(st1);
readln;
end.
program tim_so_nguyen_to_trong_xau_t;
uses crt;
function is_prime(n: integer): boolean;
var
i: integer;
begin
if n <= 1 then
begin
is_prime := false;
exit;
end;
if n <= 3 then
begin
is_prime := true;
exit;
end;
if n mod 2 = 0 then
begin
is_prime := false;
exit;
end;
for i := 3 to trunc(sqrt(n)) do
begin
if n mod i = 0 then
begin
is_prime := false;
exit;
end;
end;
is_prime := true;
end;
var
T: string;
i, number, max_prime: integer;
begin
clrscr;
write('Nhap xau T: ');
readln(T);
max_prime := 0;
for i := 1 to length(T) do
begin
if (T[i] >= '0') and (T[i] <= '9') then
begin
number := strToInt(T[i]);
if is_prime(number) then
begin
write(number, ' ');
if number > max_prime then
begin
max_prime := number;
end;
end;
end;
end;
writeln();
writeln('So nguyen to lon nhat trong xau T la: ', max_prime);
readln;
end.
bạn ơi nó chỉ chạy đối với số nguyên tố có 1 chữ số là sao bạn nó ko in ra số 23 bạn
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln('Xau moi la: ',st);
readln;
end.
const fi='input.txt';
fo='output.txt';
var f1,f2:text;
st:string[125];
a:array[1..125]of string;
i,d,dem,kt,j:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
dem:=1;
a[1]:=st[1];
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if a[j]=st[i] then kt:=1;
if kt=0 then
begin
inc(dem);
a[dem]:=st[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to d do
if a[i]=st[j] then inc(dem1);
writeln(f2,a[i],' xuat hien ',dem1,' lan');
end;
close(f1);
close(f2);
end.