Một số khái niệm về lập trình và ngôn ngữ lập trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lục Hạ Vy

Người ta thường dùng các vạch để viết các chữ số trên bảng điện tử như sau: số 0 viết 6 vạch, số 1 viết 2 vạch...

Bài tập: Cho số nguyên dương N(N<=109)

a) Hãy tính số vạch cần để viết chữ N

b)Hãy tìm chữ số lớn nhất trong số N

c) Số có các chữ số tăng dần gọi là số tiến, số có các chữ số giảm dần gọi là số lùi. Kiểm tra số N là số tiến, số lùi hay số không tiến, không lùi

Dữ liệu vào: Từ tệp DT.inp 1 dòng duy nhất chứa số nguyên dương N (N<=109)

Dữ liệu ra:ghi vào tệp DT.out gồm 3 dòng:

+D1:Số vạch cần dùng để viết số N

+D2:Chữ số lớn nhất trong số N

+D3: Ghi chữ T nếu N là số tiến, ghi chữ L nếu N là số lùi, ghi số 0 nếu N là số không tiến không lùi

Minh Lệ
13 tháng 12 2019 lúc 19:33

a) Mình chưa hiểu vạch như thế nào , bạn ghi rõ đề giúp mình nha.

b+c)

Program hotrotinhoc;

var n:string;

max:char;

d,d1,i: integer;

begin

readln(n);

for i:=1 to length(n) do

begin

if n[i]<n[i+1] then inc(d);

if n[i]<n[i-1] then inc(d1);

if n[i]>max then max:=n[i];

end;

writeln(max);

if length(n)-1=d then write('T') else

if length(n)-1=d1 then write('L') else write(0);

readln
end.

Khách vãng lai đã xóa
Minh Lệ
15 tháng 12 2019 lúc 10:57

a)

Program hotrotinhoc;

const a: array['0'..'9'] of integer = (6,2,5,5,4,5,6,3,7,6);

var n: string;

i,j,t: integer;

begin

read(n);

t:=0;

for i:=1 to length(n) do

t:=t+a[n[i]];

write(t);

readln

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Long Thiên
Xem chi tiết
Long Thiên
Xem chi tiết
bui pham phuong Uyen
Xem chi tiết
Herosnet
Xem chi tiết
Trọng Quang.
Xem chi tiết
Long Thiên
Xem chi tiết
phạm quốc cường
Xem chi tiết
Ta Nobi
Xem chi tiết
Trang Nguyen
Xem chi tiết