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

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

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

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

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

program z3;
var i, s :integer;
begin
  writeln('Vvedite celoe chislo');
  readln(s);
  if (s>100) then
     for i:=s downto 1 do
         write(i,' ')
  else
      for i:=1 to s do
          write(i,' ');
  readln();
end.  

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

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

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

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

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

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

Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга, если среди есть неуникальные элементы, то удалите их, сдвинув значения влево, заполняя оставшиеся справа ячейки нулями.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для:

|1|-3|5|-3|9|5|8|

получим:

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

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

6
3

А для 8:

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

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

Вариант 1

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

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

var a: integer;
begin
  repeat
    writeln('Vvedite chislo');
    readln(a);
    if a = 0 then
      writeln('ноль это ноль')
    else if a mod 2 = 0 then
      writeln(a,' chetnoe chislo')
    else
      writeln(a,' nechetnoe chislo')
  until (a = 0) ;
  writeln('Exit');
  readln();
end.

Задача 10 урок 13.1

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

Задача 9 урок 13.1

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

var M, N, i, s: integer;
begin
  writeln('Vvedite N');
  readln(N);
  writeln('Vvedite M');
  readln(M);
  for i := 1 to M do
  begin
    for s:= 1 to N do
      write(s, ' ');
    writeln();
  end;
  readln();
end.