Đăng nhập để hỏi chi tiết
Bài 3 (5,0 điểm): Nhập vào một số tự nhiên N với (0 < N <= 65535). Viết chương trình thực hiện các công việc sau:
a. Cho biết chữ số lớn nhất của số tự nhiên vừa nhập;
b. In đảo ngược số N.
Ví dụ:
Số N được nhập từ bàn phím In ra màn hình
N = 6548 - Chữ số lớn nhất là: 8 - Số đảo ngược là: 8456
còn 2 câu nx giúp v pascal
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
uses crt;
var s,s1:ansistring;
n,max,tam:int64;
i,so:longint;
a:array[1..1000] of int64;
begin
clrscr;
readln(n);
str(n,s);
tam:=length(s);
for i:=1 to tam do
val(s[i],a[i],so);
max:=0;
for i:=1 to tam do
if a[i]>max then
max:=a[i];
writeln(max);
str(n,s);
for i:=length(s) downto 1 do
s1:=s1+s[i];
writeln(s1);
readln;
end.Hãy giúp mọi người biết câu trả lời này thế nào?
12 vote
program Bai3;
uses crt;
var
N, temp, reversed, digit: LongInt;
maxDigit: LongInt;
begin
clrscr;
write('Nhap so tu nhien N (0 < N <= 65535): ');
readln(N);
temp := N;
maxDigit := 0;
reversed := 0;
while temp > 0 do
begin
digit := temp mod 10;
if digit > maxDigit then
maxDigit := digit;
reversed := reversed * 10 + digit;
temp := temp div 10;
end;
writeln('So vua nhap: ', N);
writeln('Chu so lon nhat la: ', maxDigit);
writeln('So dao nguoc la: ', reversed);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
cct3
nghĩa là sao?
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho 2K12 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
>> Học trực tuyến lớp 7 trên Tuyensinh247.com Đầy đủ khoá học các bộ sách (Kết nối tri thức với cuộc sống; Chân trời sáng tạo; Cánh diều). Cam kết giúp học sinh lớp 7 học tốt, hoàn trả học phí nếu học không hiệu quả.
 |
 |
 |
 |
 |
 |
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.
134
1673
116
bắp xong ko nhận lấy acc bắp ra chửi lại để mọi người tin
134
1673
116
khẹc khẹc
134
1673
116
kinh nghiệm của t ko thiếu :))
134
1673
116
xong lại còn chat
134
1673
116
nguyên văn của chat đây
134
1673
116
uses crt; var s, s1: ansistring; n, max, tam: int64; i, so: longint; a: array[1..1000] of int64; begin clrscr; readln(n); // Read an integer from input str(n, s); // Convert integer to string tam := length(s); // Get length of the string for i := 1 to tam do val(s[i], a[i], so); // Convert each character to digit and store in array a max := 0; for i := 1 to tam do if a[i] > max then max := a[i]; // Find the maximum digit writeln(max); // Print the max digit str(n, s); // Convert number to string again for i := length(s) downto 1 do s1 := s1 + s[i]; // Reverse the string writeln(s1); // Print reversed string readln; end. Rút gọnuses crt; var s, s1: ansistring; n, max, tam: int64; i, so: longint; a: array[1..1000] of int64; begin clrscr; readln(n); // Read an integer from input str(n, s); // Convert integer to string tam := length(... xem thêm
918
36
587
Tạo vote 1 sao cho mặt chómmayf nè ⇒ diễn xàm v e , cái trò này trc t xài cả trăm lần r m còn định dùng để qua mắt t à 🤣🤣🤣🤣
134
1673
116
:))