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

LV

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

ML
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.

Bình luận (0)
 Khách vãng lai đã xóa
ML
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.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
LT
Xem chi tiết
LT
Xem chi tiết
BU
Xem chi tiết
H24
Xem chi tiết
TQ
Xem chi tiết
LT
Xem chi tiết
PC
Xem chi tiết
TN
Xem chi tiết
TN
Xem chi tiết