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 trả lời

+ Trả lời +4đ

Hỏi gia sư

Học gia sư

1 trả lời

Thưởng th.10.2024

Xếp hạng

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

Xem chính sách

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

Tham gia Cộng đồng Lazi trên các mạng xã hội
Fanpage:	https://www.fb.com/lazi.vn
Group:	https://www.fb.com/groups/lazi.vn
Kênh FB:	https://m.me/j/AbY8WMG2VhCvgIcB
LaziGo:	https://go.lazi.vn/join/lazigo
Discord:	https://discord.gg/4vkBe6wJuU
Youtube:	https://www.youtube.com/@lazi-vn
Tiktok:	https://www.tiktok.com/@lazi.vn

Bài tập liên quan

Thông tin chính thức từ Khoa học máy tính, 15 tháng 2 năm 1946, ENIAC được giới thiệu là chiếc máy tính điện tử đầu tiên trên thế giới. Ngày nay có hàng triệu máy tính khác nhau trong nhiều lĩnh vực. Em hãy đánh giá những khác biệt giữa máy tính này? (Lập trình - Lớp 9)

0 trả lời

Trắc nghiệm Lập trình Lớp 9 mới nhất

Xem thêm

Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi

Vui	Buồn	Bình thường

Học ngoại ngữ với Flashcard

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

11-2024 10-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
	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

Các áp lập trình là những áp nào (Lập trình - Lớp 9)

Dấu cách trong C++ thuộc kiểu dữ liệu nào (Lập trình - Lớp 9)

Viết 1 chương trình 1 mảng số nguyên thực hiện các yêu cầu sau (Lập trình - Lớp 9)

Hãy viết một chương trình Pascal Để giải quyết bài toán sau đây (Lập trình - Lớp 9)

Code c++ chỉ đuọc dùng for if hoặc while thôi nha (Lập trình - Lớp 9)

Cho số N và dãy số, tìm số lớn nhất và vị trí của số trong dãy (Lập trình - Lớp 9)

Cho số N và dãy số, tìm số lớn nhất và vị trí của số trong dãy (Lập trình - Lớp 9)

Viết một chương trình nhập từ bàn phím một số nguyên dương N có k chữ số (Lập trình - Lớp 9)

Tính (Lập trình - Lớp 9)

Cho số nguyên dương N, viết chương trình tìm chữ số chẵn của n (viết chương trình theo pascal) (Lập trình - Lớp 9)

Viết c++ nhập 2 xâu nhân lại với nhau như hình vẽ (Lập trình - Lớp 9)

Viết nhập 2 xâu dạng số và tính tổng các số trong 2 xâu C++ (Lập trình - Lớp 9)

Nhập vào giá trị của n nguyên dương, tính tổng sau và in kết quả ra màn hình (Lập trình - Lớp 9)

Tuy vậy Steva tin rằng với hai giá trị đó biết thì có thể tìm được hai ẩn số m và n (Lập trình - Lớp 9)

Viết phương trình nhập vào (Lập trình - Lớp 9)

Viết chương trình nhập vào một mảng có N số nguyên (N≤100).. (Lập trình - Lớp 9)

Giải bằng lập trình C++: Viết chương trình nhập vào một mảng có N số nguyên (N≤100), hãy tìm (Lập trình - Lớp 9)

Giải bằng lập trình C++ (Lập trình - Lớp 9)

Viết chương trình nhập vào một mảng có N số nguyên (N ≤ 100), tính: (Lập trình - Lớp 9)

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

Đăng nhập

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