Олимпиадные задачи в паскале

[scoprion]

Помогите решить) очень нужно) завтра олимпиада, срочно нужно решить)

[scoprion]

Program zd1;
uses crt;
var
k,v,a,m,i,s:integer;
n:string;
f:text;
f1:text;
begin
clrscr;
assign(f,'C:\pascal\a.txt');
reset(f);
read(f,k);
write(k,' ');
read(f,m);
write(m,' '); readln(f);
readln(f,n); writeln;
writeln(n,' ');
assign(f1,'C:\pascal\a.out');
rewrite(f1);
a:=0;
v:=1;
for i:=1 to length (n) do
begin
n[i]:= Upcase(n[i]);
if (n[i]>'0') and (n[i]<'9') then a:=a+(ord(n[i])-48)*v;
if (n[i]>'A') and (n[i]<'9') then a:=a+(ord(n[i])-55)*v;
v:=v*k;
end;
s:=a mod m; writeln(s);
readkey;
close(f);
close(f1);
End.

Решение 1-ой задачи)

_____
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[scoprion]

program z2;
uses crt;
var
n,m,i,j,k:integer;
f,f1:text;
mas:array [1..30000] of byte;
begin
 ClrScr;
 assign(f,'C:\pascal\b.in');
 reset(f);
 read(f,n);
 read(f,m);
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   read(f,k);
   mas[k]:=mas[k]+1;
  end;
  readln(f);
 end;
 close(f);
 assign(f1,'C:\pascal\b.out');
 rewrite(f1);
 for i:=1 to 30000 do if mas[i]=n then write(f1,i);
 close(f1);
end.

Решение 2-ой задачи)



_____
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.