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)
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.
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.
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau :'); readln(s);
for i:=1 to length(s) do if s[i]<>'a' then write(s[i]);
readln
end.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]='a' then delete(st,i,1);
writeln(st);
readln;
end.
uses crt;
var st:string;
i,d,dem:integer;
b:char;
begin
clrscr;
write('Nhap xau st:'); readln(st);
d:=length(st);
write('Nhap ki tu b:'); readln(b);
dem:=0;
for i:=1 to d do
if b=st[i] then inc(dem);
writeln(dem);
readln;
end.
uses crt;
var st:string;
a:array[1..255]of string;
i,d,dem,kt,j,dem1:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
a[1]:=st[1];
dem:=1;
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if st[i]=a[j] 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(a[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
uses crt;
var a:string;
c:char;
i,dem:integer;
begin
clrscr;
readln(a);
readln(c);
dem:=0;
for i:=1 to length(a) do
if a[i]=c then dem:=dem+1;
writeln(dem);
readln;
end.
program XoaSoLienTuc;
uses sysutils;
function XoaSoLienTuc(S: string): string;
var
i: integer;
result: string;
begin
result := '';
for i := 1 to Length(S) do
begin
if not (S[i] in ['0'..'9']) then
begin
if (i = 1) or (S[i-1] in ['0'..'9']) then
result := result + ' ';
result := result + S[i];
end;
end;
result := Trim(result);
result := StringReplace(result, ' ', '', [rfReplaceAll]);
XoaSoLienTuc := result;
end;
var
S: string;
begin
write('Nhập vào xâu S: ');
readln(S);
writeln('Kết quả: ', XoaSoLienTuc(S));
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