Hướng dẫn giải, Đề thi học sinh giỏi môn Tin lớp 9, tỉnh Đồng Nai, năm 2015 - 2016

Mời các bạn tham khảo!
---

Bài OCSEN

var x,y,h,i,j,z:longint;
begin
 readln(x,y,h);
 if h<x then write(1) else
  begin
   z:=x-y;
   j:=trunc((h-x)/z);
   if (h-x) mod z=0 then write(j+1)else write(j+2);
  end;
 readln;
end.

Bài MAKHOA

var s1,s2:string;
    d:array['0'..'9'] of longint;
    k:char;
    i,j:longint;

procedure xuli;
   begin
   for i:=1 to length(s1) do
      inc(d[s1[i]]);
   for i:=1 to length(s2) do
      inc(d[s2[i]]);
   for k:='9' downto '0' do
      IF (d[k]>1) and (pos(k,s1)>0) and (pos(k,s2)>0) then write(k);
   end;

begin
assign(input,'MAKHOA.inp');reset(input);
assign(output,'MAKHOA.out');rewrite(output);
readln(s1);
readln(s2);
xuli;
end.