Hướng dẫn giải, Đề thi học sinh giỏi lớp 9 môn Tin học, thành phố Biên Hòa, tỉnh Đồng Nai, năm học 2017 - 2018

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

TIENDIEN

const fi='tiendien.inp';
        fo='tiendien.out';

var kq:real;
        ma,n:longint;
function max(a,b:longint):longint;
        begin
                if a>b then exit(a) else exit(b);
        end;
procedure nhap;
        var i,a,b:longint;
        begin
                readln(n);
                ma:=0;
                for i:=1 to n do
                        begin
                        readln(a);
                        readln(b);
                        ma:=max(ma,b-a);
                        end;
        end;
procedure xuat;
        var i:longint;
        begin
                write(ma,'=');
                kq:=0;
                case ma of
                        0..50: kq:=ma*1.484;
                        51..100: kq:=50*1.484+(ma-50)*1.533;
                        101..200: kq:=50*1.484+50*1.533+(ma-100)*1.786;
                else kq:=50*1.484+50*1.533+1.786*100+(ma-200)*2.242;
                end;
                writeln(kq:0:2);
                writeln(kq/10:0:2);
                writeln(kq/10*11:0:2);
        end;
begin
assign(input,fi);
reset(input);
assign(output,fo);
rewrite(output);
        nhap;
        xuat;
end.

MASO

const fi='maso.inp';
        fo='maso.out';
var s:string;
        mi,ma:char;
procedure nhap;
        begin
                readln(s);
        end;
procedure xuli;
        var i:longint;
        begin
                mi:='9';
                ma:='0';
                for i:=1 to length(s) do
                        if s[i] in ['0'..'9'] then
                                begin
                                if s[i] < mi then mi:=s[i];
                                if s[i] > ma then ma:=s[i];
                                end;
        end;
procedure xuat;
        var i:char;
        begin
                for i:=mi to ma do
                        if pos(i,s)=0 then write(i,' ');
        end;
begin
assign(input,fi);
reset(input);
assign(output,fo);
rewrite(output);
        nhap;
        xuli;
        xuat;
end.