VaFLiK)
N68 по информатике,возможно сделать так:(это я предположил)

Const
n=7;
 A:array[1..n] of integer=(1,7,3,5,4,8,9);
var
  k,i:integer;
begin
  for i:=1 to n do
   if (ODD(A[i])) and (ODD(i)) then inc(k);
    writeln(k);
end.

да реально....к надо присвоить 0,что бы потом было чему прибавить один...... ....

69.Найти все натуральные числа, не превосходящие N<1000, и делящиеся на каждую из  своих цифр.

По моему надо выделитьскачала 3 цыфры выделить(N<1000)....потом если делится на все 3 цыфры то вывести число_

if i mod p=0 then inc(k);
   until i1=0;
   if k=k1 then write(i,' ');
  end;
____________________
эту часть не понял)

вы не обращайте внимание,у меня бывают пробои,хотя на черновике я их не упускаю))Рувин,я твой код (n69) не совсем понял!!я попробую по своему сделать,выложу ,а ты проверь!!если не получится,то придется понимать твой)))

я попытался ссделать по другому,но получилась каша-малаша!!короче зря старался)я твой уже понял,за исключением одного

if k=k1 then write(i)

что это значит,и почему ты просишь невинный комп вывести тебе на экран "i"?

к это кол-во цифр в числе,а к1 кол-во цифр на которое число делится,а i мне выводит эти числа

черт!!я думал найти количество,а нет!!  

Я скорректировал,но в целом всё правильно
61)
VAR
i,a,b,c:integer;
BEGIN
for i:=100 to 999 do
  begin
   a:=i mod 10;
   b:=(i div 10) mod 10;
   c:=i div 100;
   if i=(a*a*a)+(b*b*b)+(c*c*c) then write (i,' ');
  end;
end.

Спасибки а не могли бы вы что  решаете выкладывать сюда???? Заоодно и обсудите и тем кто не умеют поможите?

47.Алгоритм и программа нахождения в двумерном массиве седловой точки.    Давай Асиф)))))сам напросился))

sam napisal programmu?    vot moy variant
var
i,a,b,c:integer;
  begin
    for i:=1 to 999 do
    if i div 100=0 then
      begin
        a:=i mod 10;
        b:=(i div 10) mod 10;
        if (a<>0) and (b<>0) and (i mod a=0) and (i mod b=0) then write(i,' ')
      end  else
        begin
          a:=i mod 10;
          b:=(i div 10) mod 10;
          c:=(i div 100) mod 10;
          if (a<>0) and (b<>0) and (c<>0) and
          (i mod a=0) and (i mod b=0) and (i mod c=0) then write(i,' ');
        end;
    readln;
  end.
pravda on podlinneyye, no rabotayet pravilno dla vsex cisel <1000

Вобще-то да(она есть в 6-й главе для задач повышенной трудности)

67)
const
n=10;
A:array [1..n] of integer=(2,13,4,25,30,16,5,7,8,36);
var
i,k,q,m: integer;
BEGIN
k:=0;
for i:=1 to n do
  begin
   m:=A[i];
   q:=round((sqrt(m));
   if m=sqr(q) then
    if q mod 2=0 then inc(k);
  end;
writeln('k=',k);
readln;
END.

большое спасибо

RUVIN MOLODEC!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

49)CONST
N=3; M=4;
A:array[1..N,1..M]of longint=((6,5,8,1),
                               (1,9,2,5),
                               (8,0,3,6));
VAR
B:array[1..100,1..100]of longint;
i,j,k:integer;
BEGIN
for i:=1 to N do
  for j:=1 to M do
   B[i,j]:=A[i,j];
for i:=M-1 downto 1 do
  B[1,i]:=B[1,i]+B[1,i+1];
for i:=2 to N do
  B[i,M]:=B[i,M]+B[i-1,M];
  k:=M-1;
for j:=1 to M-1 do
  begin
   for i:=1 to N-1 do
    if B[i,k]>B[i+1,k+1] then B[i+1,k]:=B[i+1,k]+B[i,k]
                         else B[i+1,k]:=B[i+1,k]+B[i+1,k+1];
   dec(k);
  end;
write(B[N,1]);
END.

50)VAR
A,B:array[1..100,1..100]of integer;
N,i,j:integer;
BEGIN
readln(N);
for i:=1 to N do
  for j:=1 to i do
   read(A[i,j]);
for i:=1 to N do
  for j:=1 to i do
   B[i,j]:=A[i,j];
for i:=n-1 downto 1 do
  for j:=1 to i do
   if B[i+1,j]>B[i+1,j+1] then B[i,j]:=B[i,j]+B[i+1,j]
                          else B[i,j]:=B[i,j]+B[i+1,j+1];
   writeln(B[1,1]);

Ushaqlar qabaqdan imtahan qelir siz ise yatirsiz.KAK VAM NE STIDNO?

ИСПРАВЛЕНИЯ:
ЛЮДИ в 66,67 вместо ODD(i) надо писать ODD(j)!!!(SORRY)

Я чё сумасшедший