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.
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
câu 1
Program Nguyen_to;
Var n,i:integer;
Function NT(n:integer):Boolean;
Var ok: Boolean;
i: integer;
Begin ok:=true;
for i:=2 to n-1 do if (n mod i)= 0 then ok:=ok and false;
if n < 2 then NT:=false else NT:=ok;
End;
Begin Write('Nhap n: ');
Readln(n); i:=n;
Repeat i:=i+1;
Until NT(i);
Write('So nguyen to nho nhat lon hon ',n, 'la: ',i);
Readln End.
câu 2
uses crt;
const so: set of char=['0','1','2','3','4','5','6','7','8','9'];
var a:array[1..100] of integer;
st,b:string;
c,l,i,n,j:integer;
s, Max: integer;
begin clrscr;
write('Nhap xau:');
readln(st);
l:=length(st);
i:=1;
n:=0;
repeat if (st[i] in so) then begin b:='';
repeat b:=b+st[i];
inc(i);
until (not(st[i] in so)) or (i>l);
inc(n);
val(b,a[n],c);
end;
inc(i);
until i>l;
Max:=a[1];
for i:=2 to n do If Max<A[i] Then Max:=A[i];
Writeln('Phan tu lon nhat cua mang:', Max);
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.
#include <iostream>
using namespace std;
int main() {
string A, B;
getline(cin, A);
getline(cin, B);
int count = 0;
for (int i = 0; i <= B.length() - A.length(); i++) {
bool found = true;
for (int j = 0; j < A.length(); j++) {
if (B[i+j] != A[j]) {
found = false;
break;
}
}
if (found) {
count++;
}
}
cout << count;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
string a,b,d;
int c;
int main()
{
cin>>a>>b>>c;
for(int i=1;i<=c;i++){
d+=a;
}
if(d==b)cout<<"YES";
else cout<<"NO";
}
Mik làm bằng ngôn ngữ C++;
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)