Sinh Viên Việt Nam

THÀNH CÔNG MART chuyên phân phối thanh long, tủ vải sinh vien, tủ vải đựng quần áo, tu vai dung quan ao giá rẻ và các loại như may tap co bung, | nồi cơm điện | Goi massage hong ngoai | Goi massage | Gối mát xa | Gối massage | Gối massage hồng ngoại | Máy sấy quần áo |May say quan ao | noi com dien | bếp nướng than hoa | bếp nướng than hoa nam hồng | bep nuong than hoa nam hong | bep nuong than hoa | Ghế massage toàn thân nệm massage toàn thân Máy xay công nghiệp máy xay công suất lớn Đai massage x5 Đai mát xa x5 dai mat xa x5 dai massage x5 Điều khiển điều hòa đa năng Máy xay sinh tố công nghiệp máy xay đậu nành nguyên xác Máy xay công nghiệp oshika hàng nhật bản oshika Thương hiệu nhật bản


Trở lại   Sinh Viên Việt Nam > Diễn Đàn Tin Học > Lập Trình > Pascal - Delphi - Kylix

Gởi Ðề Tài Mới  Trả lời
 
Ðiều Chỉnh Xếp Bài
  #1  
Cũ 02-02-2010, 10:20 PM
Pascal
Guest
 
Bài gửi: n/a
Post Một bài toán khá đơn giản cho vui

Tìm trong 10000000 số ****nacy đầu tiên chia hết cho 10000, in ra file ****n.txt số thứ tự các số đó(số thứ mây, vd 8 là số ****nacy thứ 6).

program ****nacy;
const
fo='****.txt';
max=10000000;
var
f:text;
i:longint;
st1,st2,s:string;

function plus(st1,st2:string):string;
var
a,i,j,n,m,k:integer;
st:string;
begin
if length(st1)9 then
begin
a:=a-10;
k:=1;
end;
st:=chr(a 48) st;
end;
if k>0 then
st:='1' st;
plus:=st;
end;

function test(st:string):boolean;
var
i:byte;
begin
if length(st)>=5 then
begin
test:=true;
for i:=length(st)-3 to length(st) do
if st[i]'0' then
begin
test:=false;
break;
end;
end
else
test:=false;
end;

begin
i:=2;
st1:='1';
st2:='1';
assign(f,fo);
rewrite(f);
while i
Trả Lời Với Trích Dẫn
Gởi Ðề Tài Mới  Trả lời

Bookmarks

Ðiều Chỉnh
Xếp Bài

Quyền viết bài
Bạn không thể gửi chủ đề mới
Bạn không thể gửi trả lời
Bạn không thể gửi file đính kèm
Bạn không thể sửa bài viết của mình

BB code is Mở
Mặt cười đang Mở
[IMG] đang Mở
HTML đang Tắt


Chủ đề giống nhau
Chủ đề Người khởi xướng chủ đề Diễn đàn Trả lời Bài mới gửi
có ai bít giải bài này bằng thuật toán giúp với Pascal Pascal - Delphi - Kylix 0 02-02-2010 09:06 PM
Bst giày Korea cực hot!!!giày chiến binh,búp bê lấp lánh...giá cực gud!! nana Quần Áo 0 21-08-2009 10:57 AM
Bst giày Korea cực hot!!!giày chiến binh,búp bê lấp lánh...giá cực gud!! nana Giày Dép - Balo 0 21-08-2009 10:56 AM
toàn sim chọn lọc giá tốt lebuuhoang Sim Số - Linh Kiện Mobile 0 17-07-2009 10:12 PM
giáo trình C toàn tập_by KS hehe Ebook Tin Học - lập Trình 0 07-06-2009 01:35 PM




Powered by: vBulletin v3.8.4 Copyright ©2000-2019, Jelsoft Enterprises Ltd.