Школьная олимпиада 9-10 классов(Молдова, Кишинев)

[KiDoki]

Сегодня был на школьной олимпиаде 9-10 классов. Сам учусь в 9-ом.
Решал, решал. Решал, решал. И ничего не вырешал.
Прикреплен скан с заданиями. Очень хочу узнать решения. Или наведите на мысль. Спасибо

[CrazyRabbit]

держи код первой:
var a:array[1..100,1..100]of integer;
i,j,k,n:integer;
begin
readln(n);
k:=1;
i:=1;
while i<>n+1 do
begin
if i mod 2=0 then
for j:=n downto 1 do
begin
a[i,j]:=k;
inc(k);
end
else
for j:=1 to n do
begin
a[i,j]:=k;
inc(k);
end;
inc(i);
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
end.

[KiDoki]

Сообщение от CrazyRabbit

держи код первой:
var a:array[1..100,1..100]of integer;
i,j,k,n:integer;
.....

Спасибо большое. Так и знал, что надо будет использовать то, что мы ещё не проходили.
*после рассмотра кода добавил*
А самое главное, что я почти добил задачу. Те же методы использовал =)

[CrazyRabbit]

код третьей:
var s:string;
k,i,p:integer;
begin
readln(s);
p:=0;
for i:=1 to length(s)do
begin
if s[i]<>s[length(s)-p]
then
inc(k);
inc(p);
end;
if k=0 then
writeln('Yes')
else
writeln('No');
end.

[CrazyRabbit]

ну и второй:
var s,a1,a2,a3,a4,k,i,n:integer;
begin
readln(s);

for i:=1000 to 9999 do
begin
n:=i;
k:=0;
if abs(n mod 100-n div 100)=s then
k:=1;
a1:=n mod 10;
n:=n div 10;
a2:=n mod 10;
n:=n div 10;
a3:=n mod 10;
n:=n div 10;
a4:=n;
if (a1<>a2)and(a2<>a3)and(a3<>a4)and(a 1<>a4)and(a2<>a4)and(k=1)then
writeln(i);
end;
end.

[KiDoki]

Сообщение от CrazyRabbit

код третьей:
var s:string;
k,i,p:integer;
.......

Огроменое спасибо. Небольшой вопросик - что делает строчка inc(k);? И вообще "inc"?
*добавил*
Большое, прибольшое спасибо!

[CrazyRabbit]

inc(k)-это то же самое что и k:=k+1
если число нужно увеличить не на единицу, то после имени переменной пишется то число.
например:inc(k,5),увеличивает k на 5.

[KiDoki]

Спасибо ещё раз =)