Люди добрые,помогите пожалуйста решить задачки!!!

[Мартышонок]

Линейные алгоритмы
Задано двухзначное число. Чему равна первая цифра числа?

Условные операторы
Задано натуральное число a. Заканчивается ли оно на 0?

Операторы цикла
1.Найти все делители для заданного числа n.
2.Написать программу поиска четырёхзначного числа, которое при делении на C даёт в остатке B, а при делении на B даёт в остатке D.

Массивы.
Дана квадратная матрица порядка M. Повернуть ее на 90 градусов в положительном направлении.

Буду очень благодарна за помощь!!!

[Zeraim]

По условным операторам, первое что пришло в голову: Создавай текстовик, пиши туда число и смотри последний символ в строке. Можетбыть можно и проще сделать.
С делителями непомню точно но использовать надо mod и div
С матрицей только подскажу ход решения:
Допустим есть матрица 3х3 тогда если смотреть построчно то её элементы будут принимать такие координаты:
1.1 - 1.3
1.2 - 2.3
1.3 - 3.3
---------
2.1 - 1.2
2.2 - 2.2
2.3 - 3.2
---------
3.1 - 1.1
3.2 - 2.1
3.3 - 3.1

[eoln]

Линейка) otv := chislo div 10;

Условные) if a mod 10 = 0 then write('Da') else write('Net');

Циклы)
1) for i := 1 to n div 2 do if n mod i = 0 then writeln(i);
2) for i := 1000 to 9999 do if (i mod c = b) and (i mod b = d) then write(i, ' ');

Массивы
Я так понимаю положительное направление - против часовой стрелки (как в математике)
Просто меняем строки и столбцы в определённом порядке

const
  n = 3;
  m = 4;
var
  A: array[1..n, 1..m] of integer;
  B: array[1..m, 1..n] of integer;
  i, j, k: integer;
begin
  for i := 1 to n do begin
    for j := 1 to m do begin
      A[i, j] := random(10);
      B[1+m-j, i] := A[i, j];
      write(A[i, j]:3)
    end;
    writeln
  end;
  writeln;
  for i := 1 to m do begin
    for j := 1 to n do
      write(B[i, j]:3);
    writeln
  end;
  readln
end.

[Мартышонок]

Спасибки огромное!!!Чтоб я без Вас делала?!))

[Alex21]

Сообщение от Мартышонок

Чтоб я без Вас делала?!))

один вопрос - одна тема.
Темы, названия которых не отражают сути задач будут удаляться.