fkn+antitotal

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

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

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8101214четыре числа316182022четыре числа3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
810два числа31416два числа3....3....и т.д.

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

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

8 10 3 12 14 3 16 18 3 20 22 3 и т.д.
-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.

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

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

program lesson13_15;
var
    i, j: integer;
begin
      for i := 1 to 9 do
      begin
          j := i;
          while j <= 10 * i do
          begin
              writeln(j, ' : ', i, ' = ', j div i);
              j := j + i;
		  end;
	  end;
	  readln();
end.

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

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

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

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

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

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

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

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

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

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

program lesson13_11;
var
    a : integer;
begin
    while true do
    begin
        writeln('enter number a');
        readln(a);
        if a = 0 then
            break
        else if a mod 2 = 0 then
            writeln(a, ' - even number')
        else
            writeln(a, ' - odd number');
	end;
    readln();
end.

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

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

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

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

program lesson13_9;
var
    i, j, m, n : integer;
begin
    m := 5;
    n := 10;
    for i := 1 to m do
    begin
        for j := 1 to n do
            write(j, ' ');
        writeln();
	end;
	readln();
end.