не могу понять как решать задачи по паскалю!

[aiktz]

можете выручить????

[aiktz]

вот условие:
1. Последовательность из n целых чисел (n задается пользователем и должно быть больше 0) вводится и обрабатывается поэлементно. При этом необходимо предусмотреть возможность ввода с клавиатуры или случайным образом.
Определить, сколько в этой последовательности чисел: порядковый номер первого четного элемента. Если четных элементов нет, сообщить об этом.

2. Дано натуральное число n. Разложить это число на простые множители.

[alex_fcsm]

Используйте поиск
Что в первой нужно сделать? Посчитать количество нечетных и четных чисел?

[Tkirill]

uses crt;
var
n,i:integer;
begin
clrscr;
write(' -> ');
readln(n);
writeln;
i:=2;
while n mod i=0 do
begin
write(i,' ');
n:=n div i;
end;
i:=3;
while i<=n do
if n mod i=0 then
begin
write(i,' ');
n:=n div i;
end
else i:=i+2;
readln;
end.

[Plague]

to Tkirill
Ваш алгоритм не опримален, он долго считает.
предлагаю свой вариант:

var n,i:longint;
//var n,i:int64;
begin
  readln(n);
  i:=2;
  if n<>2 then
    repeat
      if n mod i=0 then
        begin
          write(i,'*');
          n:=n div i;
        end 
      else i:=i+1;
    until i>sqrt(n);
  write(n);
end.

[aiktz]

Tkirill, Plague спаааааааасибо вам огромное!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!

[aiktz]

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

Используйте поиск
Что в первой нужно сделать? Посчитать количество нечетных и четных чисел?

в первом найти порядковый номер первого четного элемента. Если четных элементов нет, сообщить об этом.

[aiktz]

девушки и парни, а как с этим справиться?????

Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми. Например, запись (2,4) соответствует клетке "B4", а (5,2) - клетке "E2". Даны натуральные числа k, l, m, n, каждое из которых не превосходит восьми. Требуется:

На поле (k,l) расположен конь. Угрожает ли он полю (m,n)?

[alex_fcsm]

uses crt;
var a:array[1..1000] of integer;
    i,j,n:integer;
    ch:char;
    
begin
 writeln('Введите количество');
 readln(n);
 writeln('Тип ввода:ручной(1) и случайный(2)');
 ch:=readkey;
 case ch of
 '1':begin
     writeln('Ручной:');
     for i:=1 to n do
      read(a[i]);
     end;
 '2':begin
     writeln('Случайный:');
     for i:=1 to n do
      a[i]:=random(100);
     end;
   end;
j:=0;
 for i:=1 to n do
  if a[i] mod 2= 0 then begin
                         j:=i;
                         break;
                        end;
if j<>0 then writeln(i)
    else writeln('Нету');

end.

[XeN0N]

всего есть 8 мест ( вроде ) куда может двинуться конь, они получаются прибавлением и отниманием чисел 3 и 2 от координат. Перебираете их и сравниваете с полем (m,n)