Saurday

Как же я люблю субботы. Вот на радостях даже сделал задачку по информатике... Она должна определять какая самая частая буква из всех, которые употребляются в тексте, ну а если таких букв несколько, то вывести любую из них :D Вот она:


program ex1;
type let='a'..'z';
var
a:array ['a'..'z'] of integer;
s:string;
c,max:char;
i,mx:integer;
begin
readln (S);
i:=1;


while S[i]<>'.' do
                begin
                if S[i]<>' ' then
                             begin
                             c:=S[i];
                             a[c]:=a[c]+1;
                             end;
                i:=i+1;
                end;
mx:=0;
for c:='a' to 'z' do
begin
if a[c]>mx then
                                      begin
                                      mx:=a[c];
                                      max:=c;
                                      end;
end;

writeln;
writeln (max);
end.

Ваш, не использующий стандартные шаблоны, автор

VIP задача

Сегодня. Ровно в 6 вечера мне вручили таинственные листы с задачами. Сказали, что некой А.Ю. У меня есть предположения, на счёт того, кто это... Но сейчас не об этом. Мне уалось решить задачу про сапёра. Это было весьма интересно. Потом я нашёл ответы, но исправлять не стал и выкладываю, как было в самом начале. Кому надо, тот посмотрит.


program ex1;
var a : array [1..100,1..100] of integer;
n,m,k,b,c,i,j,h,p:integer;
begin
readln (m,n,k);
b:=1;
for i:=1 to k do
           begin
         
           readln (b,c);
           b:=b+1; c:=c+1;
           a[b,c]:=-10;
           for h:= b-1 to b+1 do for p:=c-1 to c+1 do if a[h,p]>-1 then inc (a[h,p]);
           end;
for i:=2 to m+1 do
    begin
    for j:=2 to n+1 do
                 begin
                 if a[i,j]<0 then write ('  *');
                 if a[i,j]=0 then write ('  .');
                 if a[i,j]>0 then write (a[i,j]:3);               
                 end;
    writeln;
    end;
end.

Ваш, играющий в собственного сапёра, автор