“Số rắn hai đầu” là một số nguyên dương N sao cho: Khi thêm hai chữ số a, b vào hai đầu số N ấy ( theo dạng aNb ) sẽ được số mới có giá trị nâng lên 99 lần. Tức là: aNb=99N .

 “Số rắn hai đầu” là một số nguyên dương N sao cho: Khi thêm hai chữ số a, b vào hai đầu số N ấy ( theo dạng aNb ) sẽ được số mới có giá trị nâng lên 99 lần. Tức là: aNb=99N .

Yêu cầu: Cho trước hai chữ số nguyên a, b ( 0<=a, b <=9 ). Tìm “Số rắn hai đầu” N.

Dữ liệu vào: Cho trong tệp BAI3.INP gồm 2 số a,b cách nhau một dấu cách.

Kết quả: Ghi vào tệp văn bản BAI3.OUT chứa số N cần tìm. Trong trường hợp có nhiều hơn một số N thỏa mãn, hãy đưa ra số bé nhất. Cho biết dữ liệu vào luôn tồn tại kết quả.

BAI3.INP	BAI3.OUT
8 1	9

var a,b,N,i:integer;

f1,f2:text;

function soranhaidau(a,b:byte):byte;

begin

for i:=0 to 9 do

if (a*100+i*10+b )div 99=i then N:=i;

soranhaidau:=N;

end;

{-----------------------------------------------------}

begin

assign(f1,'soranhaidau.inp');reset(f1);

assign(f2,'soranhaidau.out');rewrite(f2);

read(f1,a,b);

N:=soranhaidau(a,b);

write(f2,N);

close(f1);

close(f2);

end.

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email