Skip to content
Narrow screen resolution Wide screen resolution Auto adjust screen size Increase font size Decrease font size Default font size default color grey color
         
 | 
VNOI - Olympic tin học Việt Nam

Điểm tin VOJ

Số thành viên:6040
Số bài tập:1001
Số bài nộp:722923
Bài nộp hôm nay:0

Top 10 thành viên xuất sắc

HạngThành viênĐiểm
1mr_invincible587.9
2white_cobra418.6
3hieult403.4
4phaleq384.0
5vodanh9x368.2
6con_nha_ngheo352.0
7flash_mt350.2
8darksabers349.8
9yenthanh132345.3
10rockman9x_94343.1

Danh tiếng các thành viên

HạngThành viênĐiểm
1mr_invincible+213
2conankudo+149
3khuc_tuan+137
4tuananhnb93+129
5khanhptnk+108
6hphong+103
7flash_mt+99
8paulmcvn+71
9technolt+70
10hoangle+63

Topcoder Vietnam

HạngThành viênĐiểm
Diễn đàn
Forum
xin dong gop y kien giup do (1 đang xem) ,(1) Khách
Bài viết dưới cùng Gửi trả lời Được ưa thích: 0
CHỦ ĐỀ - xin dong gop y kien giup do
#70418
traceformula7 (Thành viên)
Đang tập code
Bài viết: 1
graphgraph
Thành viên gián tuyến Click vào đây để xem thông tin về thành viên này
xin dong gop y kien giup do 7 năm, 12 tháng trước   (+0)
em moi hoc qua pascal co may dieu chua ro mong anh chi co kinh nghiem giup do:
em lam thu bai nay
Yêu cầu
Bạn hãy xác định xem nhà in cần bao nhiêu chữ số 0, 1, 2,..., 9.
Dữ liệu: DIGITS.INP
Dòng 1: M, N
Kết qủa: DIGITS.OUT
Gồm 10 dòng, tương ứng là số chữ số 0, 1, 2, ..., 9 tìm được
Giới hạn:
• 1 ≤ M ≤ N ≤ 10^9


program chu_so;
uses crt;

type mang=array[0..9] of longint;
var i,m,n:longint;
a:mang;
procedure demcs(so:longint);
var i,j:longint;
begin
j:=so;
repeat
i:=j mod 10;
j:=j div 10;
a[i]:=a[i]+1;
until j=0;
end;

begin
write('moi nhap lan luot hai so m,n: '; read(m); readln(n);
if m>n then begin write('ban da nhap sai';readln; exit; end
else for i:=m to n do demcs(i);
for i:=0 to 9 do writeln('chu so ',i,' duoc viet ',a[i],' lan.';
readln;
end.


nhung ma khi chay voi gia tri lon thi no khong ra. anh chi cho em hoi cach lam va lieu lam nhu em co dc diem ko
 
Đã lưu IP Đã lưu IP  
  Đã khóa chức năng gửi bài.
Bài viết trên cùng Gửi trả lời
Powered by FireBoardBài viết mới nhất từ diễn đàn cho các chương trình nhận tin RSS