19/07/2023 15:08:41

Viết chương trình theo pascal

viết ct theo pascal
----- Nội dung dịch tự động từ ảnh -----
Cho một số nguyên dương N có không quá 255 chữ số
●
Yêu cầu:
Tính tích các chữ số lẻ có trong N
-
In ra các chữ số nguyên tố có trong N
Tính hiệu của số N với số nhỏ nhất tìm được
Dữ liệu vào: Nhập từ bàn phím số N
Dữ liệu ra: In ra màn hình kết quả thỏa mãn yêu cầu trên
VD:
Nhap so N = 365
Tich cac so le co trong 325 la: 15
Cac so nguyen to co trong 325 la: 3 - 5
So nho nhat la: 356
365-356=9

1 Xem trả lời

+ Trả lời +4đ

Hỏi gia sư

+500k

1 trả lời

Thưởng th.11.2024

Xếp hạng

Đấu trường tri thức +500K

program BaiTap;
uses crt;
var
N: string;
i, j, product, diff, minNum: integer;
prime: array[0..9] of boolean;

function isPrime(x: integer): boolean;
var
i: integer;
begin
if x < 2 then
exit(false);
for i := 2 to trunc(sqrt(x)) do
if x mod i = 0 then
exit(false);
exit(true);
end;

begin
clrscr;
write('Nhap so N = ');
readln(N);

product := 1;
for i := 1 to length(N) do
if (ord(N[i]) - ord('0')) mod 2 <> 0 then
product := product * (ord(N[i]) - ord('0'));

writeln('Tich cac so le co trong ', N, ' la: ', product);

for i := 0 to 9 do
prime[i] := isPrime(i);

write('Cac so nguyen to co trong ', N, ' la: ');
for i := 1 to length(N) do
if prime[ord(N[i]) - ord('0')] then
write(ord(N[i]) - ord('0'), ' ');

writeln;

for i := 1 to length(N) - 1 do
for j := i + 1 to length(N) do
if N[i] > N[j] then
begin
N[i] := chr(ord(N[i]) xor ord(N[j]));
N[j] := chr(ord(N[i]) xor ord(N[j]));
N[i] := chr(ord(N[i]) xor ord(N[j]));
end;

val(N, minNum, i);
diff := strToInt(N) - minNum;

writeln('So nho nhat la: ', minNum);
writeln(strToInt(N), '-', minNum, '=', diff);
end.

Trả lời nhanh trong 10 phút và nhận thưởng

Đấu trường tri thức +500K

Bạn muốn biết điều gì?

GỬI CÂU HỎI

Học tập không giới hạn cùng học sinh cả nước và AI, sôi động, tích cực, trải nghiệm

Câu hỏi mới nhất

Find the word which has a different sound in the part underlined. Say the words aloud (Tiếng Anh - Lớp 7)

0 trả lời

Đọc bài thơ sau và trả lời các câu hỏi (Ngữ văn - Lớp 8)

0 trả lời

Tính diện tích của hình quạt tròn và độ dài cung tròn tạo thành (lấy π~ 3,14 và kết quả làm tròn đến hàng phần trăm) (Toán học - Lớp 9)

0 trả lời

Viết điều kiện xác định của A và rút gọn A (Toán học - Lớp 8)

1 trả lời

Hình thức trao đổi khí trực tiếp qua màng tế bào (Sinh học - Lớp 11)

0 trả lời

Xem thêm

Câu hỏi liên quan

Vui	Buồn	Bình thường

Bảng xếp hạng thành viên

12-2024 11-2024 Yêu thích

Trang chủ	Giải đáp bài tập	Đố vui	Ca dao tục ngữ	Liên hệ	Tải ứng dụng Lazi
Giới thiệu	Hỏi đáp tổng hợp	Đuổi hình bắt chữ	Thi trắc nghiệm	Ý tưởng phát triển Lazi
Chính sách bảo mật	Trắc nghiệm tri thức	Điều ước và lời chúc	Kết bạn 4 phương	Xem lịch
Điều khoản sử dụng	Khảo sát ý kiến	Xem ảnh	Hội nhóm	Bảng xếp hạng
Tuyển dụng	Flashcard	DOL IELTS Đình Lực	Mua ô tô	Bảng Huy hiệu
Đấu trường tri thức	Thơ văn danh ngôn	Từ điển Việt - Anh	Đề thi, kiểm tra	Xem thêm

Viết chương trình theo pascal

Find the word which has a different sound in the part underlined. Say the words aloud (Tiếng Anh - Lớp 7)

Đọc bài thơ sau và trả lời các câu hỏi (Ngữ văn - Lớp 8)

Tính diện tích của hình quạt tròn và độ dài cung tròn tạo thành (lấy π~ 3,14 và kết quả làm tròn đến hàng phần trăm) (Toán học - Lớp 9)

Viết điều kiện xác định của A và rút gọn A (Toán học - Lớp 8)

Hình thức trao đổi khí trực tiếp qua màng tế bào (Sinh học - Lớp 11)

Tính khối lượng NH3 thu được khi tổng hợp từ 1 tấn N2 và 0.5 tấn H2 với hiệu suất là 80% (Hóa học - Lớp 11)

Tìm số tự nhiên x biết (Toán học - Lớp 6)

Phát hiện và sửa chữa lỗi dùng từ (Tiếng Việt - Đại học)

Trên một nửa mặt phẳng bờ chứa tia OA vẽ tia OB sao cho AOB = 35 (Toán học - Lớp 6)

Sửa lỗi dùng từ: (Tiếng Việt - Đại học)

Viết chương trình theo pascal

Đăng nhập

Mở khóa để xem toàn bộ nội dung trả lời