fkn+antitotal

Задача 4 урок 10.1

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

var i: integer;
begin
 for i:=35 to 117 do
     if ((i mod 2)=1)and((i mod 3)=0)then
      write(i,' ');
readln();
end.

вывод консоли

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

Задача 3 урок 10.1

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.
Подсказка: в каждой ветке условного оператора тут должно быть по одному циклу.

Задача 2 урок 10.1

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

Задача 1 урок 10.1

Выведите на экран, все четные числа от 35 до 64.

var i:integer;
  begin
    for i:=35 to 64 do
        if ((i mod 2)=0)then
           write(i,' ');
    readln();
  end.

вывод консоли

36 38 40 42 44 46 48 50 52 54 56 58 60 62 64

Задача 8 урок 15

Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.
Например:

|1|3|4|5|4|7|-8|-9|

Путь n=2, тогда после работы программы мы должны получить:

|1|4|5|4|7|-8|-9|0|

Примечание: операции сдвига элементов массива оформите в виде подпрограммы.

Задача 7 урок 15

Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные яйчейки).

Урок 21. Задачи 1-7

Задача 1 Дано целое положительное число N. Выведите на экран все число от N до 1 (по убыванию).

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

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

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

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

var i, m: integer;
  begin
    m:=1;
    while (m <= 10) do
      begin
        for i:=1 to 5 do
          write(i, ' ');
        writeln();
        m:=m+1;
      end;
  readln();
  end. 

КОНСОЛЬ:

Для обработки отдельно одинарного и двойного клика, можно использовать такой пользовательский хук: