fkn+antitotal

Задание 12 Урок 11:

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

var a, b: integer;
begin
  a := 15 div 10;
  b := 15 mod 10;
  writeln('Первая цифра числа 15 равна: ', a);
  writeln('Последняя цифра числа 15 равна: ', b);

  readln();
end.

Консоль:

Первая цифра числа 15 равна: 1
Последняя цифра числа 15 равна: 5

Задание 11 Урок 11:

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:

4 8 12 16.......100

(при более оптимальном решении проверка через mod не потребуется)

var i: integer;
begin
  i := 4;
  while (i <= 100) do
    begin
      write(i, ' ');
      i := i + 4;
    end;

  readln();
end.  

Консоль:

4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100

Задание 10 Урок 11:

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

Задание 9 Урок 11:

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

Задание 8 Урок 11:

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

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

Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 22, то завершите цикл не выводя ничего в ответ. Решите эту задачу 2-мя способами:
С использованием if()
С использованием if() и break;

Задание 6 Урок 11:

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

Задание 5 Урок 11:

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

Задание 4 Урок 11:

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

var i: integer;
begin
  i := 35;
  while ((i >= 35) and (i <= 117)) do
    begin
        if ((i <= 117) and (i mod 2 = 0)) then
            write(i, ' ');
        if ((i >= 45) and (i <= 99) and (i mod 2 = 1)) then
            write(i, ' ');
        i := i + 1;
    end;

  readln();
end.   

Консоль:

Задание 3 Урок 11:

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

var i: integer;
begin
  i := 35;
  while ((i >= 35) and (i <= 117)) do
    begin
        i := i + 1;
        if (i mod 2 = 1) and (i mod 3 = 0) then
            write(i, ' ');
    end;

  readln();
end.  

Консоль:

39 45 51 57 63 69 75 81 87 93 99 105 111 117