Cho một xâu kí T.Hãy in ra các số nguyên tố xuất hiện trong xâu T đó và Tìm số nguy...">
K
Khách

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.

29 tháng 6 2023

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)

29 tháng 6 2023

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.

1 tháng 7 2023

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

 

23 tháng 9 2021

#include <iostream>

Cho bạn một món quà gặp mặt, đó là 1 vé vip báo cáo

15 tháng 5 2021

Bài 1. Để lưu văn bản ta thực hiện lệnh   File → Save, nhấn tổ hợp phím Ctrl+S, nháy chuột vào nút lệnh trên thanh công cụ.

Bài 2. Lệnh Insert → Break → Page break  dùng để: Ngắt trang

Bài 3. Để mở hộp thoại Find and Replace ta nhấn tổ hợp phím 

  • Ctrl + F
  •  Ctrl + H

Bài 4. Mạng Wide Area Network  là mạng Mạng diện rộng (WAN - Wide Area Networklà mạng kết nối những máy tính ở cách nhau những khoảng cách lớn. Mạng diện rộng thường liên kết mạng cục bộ. ... Các máy tính và thiết bị có thể ở các thành phố, đất nước khác nhau, khắp lục địa nối kết với nhau (khoảng cách hàng nghìn km).

Bài 5. Internet Explore và Google Chrome là các trình duyệt wed

PHẦN C - TỰ LUẬN

Câu 1: Phân biệt trang web tĩnh và trang web động.

- Website tĩnh là website chỉ bao gồm các trang web tĩnh và không có cơ sở dữ liệu đi kèm.
- Web động là thuật ngữ được dùng để chỉ những website có cơ sở dữ liệu và được hỗ trợ bởi các phần mềm phát triển web.

Câu 2: Internet là gì? Nêu 3 cách kết nối Internet mà em biết.

Internet là mạng máy tính khổng lồ, kết nối hàng triệu máy tính, mạng máy tính trên khắp thế giới và sử dụng bộ giao thức truyền thông TCP/IP.

Các cách để kết nổi Internet đó là:

• Sử dụng môđem qua đường điện thoại;

• Sử dụng đường truyển riêng;

• Sử dụng đường truyền ADSL;

• Sử dụng công nghệ không dây Wi-Fi;

• Sử dụng đường truyền hình cáp


 

15 tháng 5 2021

Phần B

Bài 1

để lưu văn bản ta thực hiện lệnh: File ---> Save 

Bài 2

Lệnh Insert --> Break --> Page Break dùng để: ngắt trang

Bài 3

Để mở hộp thoại Find and Replace ta nhấn tổ hợp phím: Ctrl + H

Bài 4 

Mạng Wide Area Network là mạng: diện rộng

Bài 5

Internet Explore và Google Chrome là các trình duyệt web

Phần C 

Câu 1

Web tĩnh đơn thuần chỉ là website không có hệ thống quản lý nội dung, hoặc có nhưng nội dung trên website không thể thay đổi được

Web động tức là website có hệ thống quản lý nội dung nên người dùng có thể thay đổi nội dung

Câu 2

3 cách kết nối Internet:

Sử dụng modem qua đường điện thoại

Sử dụng công nghệ mạng không dây

Sử dụng đường truyền riêng

Internet là hệ thống thông tin toàn cầu có thể được truy nhập cộng đồng các mạng gồm các mạng máy tính được liên kết với nhau. Dựa trên bộ giao thứ TCP/IP

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.

27 tháng 2 2023

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.