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â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++;