fkn+antitotal

Урок 13.1 Задача 20

Урок 13.1 Задача 19

Пользователь передает целое положительное число N, выведете на экран последовательность из единиц в количестве N "ёлочкой", например для N=18:

1
1 1
1 1 1
1 1 1 1
1 1 1 1 1
1 1 1

Урок 13.1 Задача 18

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат:

8 10 3 12 14 3 16 18 3 20

Урок 13.1 Задача 17

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат:

8 10 3 12 14 3 16 18 3 20

Урок 13.1 Задача 16

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат:

8 10 3 12 14 3 16 18 3 20

Урок 13.1 Задача 15

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

var
  n,m:real;
begin
  m:=1;

  while (m<=9) do
  begin
    n:=1;
    while (n<=9) do
      begin
        write(n/m);
        n:=n+1;
      end;
    writeln();
    m:=m+1;
  end;

  writeln('konec');
  readln();
end. 

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

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

M := 3;
N := 15;

получим

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

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

6
3

А для 8:

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

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

var
  i:integer;
begin
  i:=1;
  while i<>0 do
  begin
    writeln('vvedite chislo: ');
    readln(i);
    if ((i mod 2)=0) then
      writeln('chislo chetnoe')
    else
      writeln('chislo nechetnoe');
  writeln();
  end;
  readln();
end.  

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

M раз выведете на экран числа от 1 до N с помощью вложенных циклов

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