YOMEDIA
NONE

Công ty Tin học ACB tổ chức buổi hội thảo nhằm giới thiệu phần mềm mới của công ty. Buổi hội thảo có N khách mời tham dự và trên mỗi ghế ngồi có ghi số ghế là M. Trước khi kết thúc hội thảo, công ty yêu cầu các khách mời tự tìm cho mình một số cuối cùng dựa trên số ghế mình ngồi (số cuối cùng được xác định là tổng các chữ số của số đó, sau đó lại tính tổng các chữ số của số mới tạo được cho đến khi chỉ còn một chữ số duy nhất). Sau khi kết thúc hội thảo, công ty tổ chức trao quà cho các khách mời có số cuối cùng trùng với số may mắn (số may mắn là số mà có số lượng số cuối cùng nhiều nhất do các khách mời tìm được).

Ví dụ: Số ghế là M = 29 thì số cuối cùng được tạo ra là 2 (29=2+9 -> 11; 11=1+1 = 2).

Yêu cầu: Gọi K là số may mắn hãy tìm số may mắn đó? (nếu có nhiều số lượng số cuối cùng bằng nhau thì chọn số cuối cùng mà khách tìm được có giá trị nhỏ nhất.

Dữ liệu vào: File văn bản LUCKY.INP

Dòng thứ nhất là số N (1 ≤N≤105);

N dòng tiếp theo là tương ứng với số ghế M của khách mời (0 ≤ M ≤ 109).

Dữ liệu ra: File văn bản LUCKY.OUT

- Gồm một số K cần tìm.

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • Phạm Hoàng Thị Trà Giang

    program hotrotinhoc;

    const fi='LUCKY.INP';

    fo='LUCKY.OUT';

    var n,k,a,i,max,d: byte;

    dem,m,m1: array[0..105] of integer;

    f: text;

    function tong(x: byte): integer;

    var t,t1: integer;

    begin

    t:=0; t1:=0;

    while x<>0 do

    begin

    t:=t+(x mod 10);

    x:=x div 10;

    end;

    while t<>0 do

    begin

    t1:=t1+(t mod 10);

    t:=t div 10;

    end;

    tong:=t1;

    end;

    procedure ip;

    begin

    assign(f,fi);

    reset(f);

    readln(f,n);

    for i:=1 to n do

    read(f,m[i]);

    close(f);

    end;

    procedure out;

    begin

    assign(f,fo);

    rewrite(f);

    for i:=1 to n do

    begin

    m1[i]:=tong(m[i]);

    inc(dem[m1[i]]);

    end;

    max:=0;

    for i:=1 to n do

    if dem[i]<>0 then

    if max<=dem[i] then max:=dem[i];

    write(f,max);

    close(f);

    end;

    begin

    ip;

    out;

    end.

      bởi Phạm Hoàng Thị Trà Giang 18/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

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
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
ATNETWORK
ON