YOMEDIA
NONE

Dãy các số tự nhiên được viết ra thành một dãy vô hạn trên đường thẳng: 1234567891011121314..... (1)

Yêu cầu: Viết chương trình yêu cầu nhập số K và in lên tệp CAU2.OUT kết quả là số nằm ở vị trí thứ K trong dãy (1) ở trên và số đó thuộc vào số nào?

Dữ liệu vào: Cho trong file văn bản CAU2.INP, có cấu trúc như sau:

- Ghi số nguyên dương K

Dữ liệu ra: Ghi ra file văn bản CAU2.OUT, theo cấu trúc như sau:

- Trên 1 dòng in kết quả số ở vị trí K và số chứa số đó cách nhau ít nhất một dấu cách.

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • program hotrotinhoc;

    const fi='cau2.inp';

    fo='cau2.out';

    var f: text;

    s,st: string;

    d: integer;

    i,k: longint;

    procedure ip;

    begin

    assign(f,fi);

    reset(f);

    read(f,k);

    close(f);

    end;

    procedure out;

    begin

    assign(f,fo);

    rewrite(f);

    d:=0;

    for i:=1 to k do

    begin

    str(i,s);

    st:=st+s;

    inc(d);

    end;

    if d=k then write(st[d],' ');

    if d<9 then write(st[d]);

    if (d>9) and (d mod 2=1) then write(st[d-1],st[d]);

    if (d>9) and (d mod 2=0) then write(st[d],st[d+1]);

    close(f);

    end;

    begin

    ip;

    out;

    end.

      bởi Nguyễn Trung Thành 19/11/2021
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

 

YOMEDIA
ATNETWORK
ON