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)

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.

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.

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.

#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;

}

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]=#32 then 

begin

writeln(i);

break;

end;

readln;

end.

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] in ['a'..'z'] then upcase(st[i]);

writeln(st);

readln;

end.