fkn+antitotal

Задача 14 Урок 13.1:

С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9, начнётся она как-то так:

1x1 = 1
1x2 = 2
......

var i, j: integer;
begin
 for i := 1 to 9 do
  for j := 1 to 9 do
   writeln(i, 'x', j, ' = ', i*j);
 readln();
end.

Задача 13 Урок 13.1:

Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для:

M := 3;
N := 15;

Получим:

Задача 12 Урок 13.1:

Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:

6
3

А для 8:

Задача 11 Урок 13.1:

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

var i: integer;
begin
   writeln('Введите целое число:');
   readln(i);
   while i <> 0 do
    begin
     if (i mod 2 = 1) or (i mod 2 = -1) then
      writeln('Число нечетное')
     else
      writeln('Число четное');
     writeln('Введите целое число:');
     readln(i);
    end;
   readln();
end.

Задача 10 Урок 13.1:

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

Задача 9 Урок 13.1:

Задача 8 Урок 13.1:

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:

1 2 3 4 5
1 2 3 4 5

var i, j: integer;
begin
   for i := 1 to 2 do
    begin
     for j := 1 to 5 do write(j, ' ');
     writeln();
    end;
   readln();
end.

Задача 7 Урок 13.1:

Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.

Задача 6 Урок 13.1:

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

Задача 5 Урок 13.1:

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.