fkn+antitotal

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

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
8 10 3 10 12 14 3 16 18 20 22 3....3....и т.д.
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно), при этом решение одним циклом можно сделать, как используя делимость нацело (для определения момента вывода тройки), так и не используя.

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

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

Решение:

var i: integer;
begin
  i:=35;
  while i<=177 do
  begin
    if ((i mod 3)=0) then
      writeln(i);
    i:=i+1;
  end;
  readln();
end. 

Консоль:

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

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

Решение:

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

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8 10 12 14 3 16 18 20 22 3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
8 10 3 14 16 3....3....и т.д.

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

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

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

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

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

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

M := 3;
N := 15;

Получим:

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

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

 6
3

А для 8:

Урок 10 задача 9

Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var i: integer;

  begin

    for i := 1 to 100 do
      if ((i mod 7) = 0) then
        write(i,' ');
    readln;

  end.
                               

Урок 10 задание 8

Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var i: integer;

  begin

    for i := 35 to 117 do
      if (i >= 45) and (i <=99) and ((i mod 2) = 1) then
        write(i,' ')
      else
        if (i >= 35) and ((i mod 3) = 0) then
          write(i,' ');
    readln;

  end.