Bài 5. Từ bài toán đến chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lê Diệu Khánh Hà

VCT cho số có 5 chữ số: Cho n là một số nguyên gồm 5 chữ số. Hãy viết chương trình nhập vào từ bàn phím số n rồi thực hiện các công việc sau: In ra màn hình số đảo ngược của số n. Tìm xem trong 5 chữ số tạo thành số n chữ số nào lớn nhất, chữ số nào nhỏ nhất.

(Mình chz học công thức Whle....do)

NHANH GIÚP MÌNH VỚI

✿✿❑ĐạT̐®ŋɢย❐✿✿
28 tháng 8 2020 lúc 16:37

uses crt;
var a : array[1..100] of integer;
n : int64;
st : string; i : integer;
max, min,code : integer;
begin clrscr;
write('Nhap so tu nhien n co 5 chu so :'); readln(n);
str(n,st);
write('So dao nguoc cua n la :');
for i:=length(st) downto 1 do write(st[i]);
for i:=1 to length(st) do val(st[i],a[i],code);
max:=a[1]; min:=a[1];
for i:=1 to length(st) do if a[i] > max then max:=a[i];
for i:=1 to length(st) do if a[i] < min then min:=a[i];
writeln;
writeln('So nho nhat trong ',n,' la :',min);
writeln('So lon nhat trong ',n,' la :',max);
readln
end.

Phạm Trần Hoàng Anh
30 tháng 8 2020 lúc 6:50

uses crt;
var n,i:longint; s,max,min:string;
begin
clrscr;
write('n=');readln(n);
str(n,s); write('So dao nguoc: '); min:='9';
for i:=1 to 5 do
begin
write(s[5-i+1]);
if s[i]>max then max:=s[i];
if s[i]<min then min:=s[i];
end; writeln;
writeln('So lon nhat: ',max);
writeln('So be nhat: ',min);
readln
end.

HỌC TỐT


Các câu hỏi tương tự
Yến Nhi Nhi
Xem chi tiết
Ngáo Ngơ Alice
Xem chi tiết
My Nguyen
Xem chi tiết
Danh Nhật Quang
Xem chi tiết
Tuấn Kiệt Phạm
Xem chi tiết
Huyền Trang
Xem chi tiết
baopham
Xem chi tiết
phạm ngọc hân
Xem chi tiết
Alice
Xem chi tiết