Задача 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
   writeln(i,' ');
   readln();
end.
        

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

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

var
   a,i:integer;
begin
  writeln('Vvedite tseloe chislo: ');
  readln(a);
  if (a > 100) then
    for i:=a downto 1 do
    writeln(i,' ')
    else
    for i:=1 to a do
    writeln(i,' ');
    readln();
end.

Задача 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
    writeln(I,' ');
    readln();
end.
        

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

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

var i: integer;
begin
  i := 35;
  repeat
    if (i mod 2 = 0) AND (i mod 3 =0) AND (i mod 6 = 0) then
      write(i, ' ');
    i := i + 1
  until (i > 117) ;
  writeln('Exit');
  readln();
end.  

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

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

var i: integer;
begin
  i := 35;
  repeat
    if (i mod 2 = 0) AND (i mod 3 =0) AND (i mod 6 = 0) then
      write(i, ' ');
    i := i + 1
  until (i > 117) ;
  writeln('Exit');
  readln();
end.  

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

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

var i: integer;
begin
  i := 35;
  repeat
    if (i mod 2 = 0) AND (i mod 3 =0) AND (i mod 6 = 0) then
      write(i, ' ');
    i := i + 1
  until (i > 117) ;
  writeln('Exit');
  readln();
end.  

Задача 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|

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

Рекурсивно количество файлов во всех поддиректориях данной

Можно так:

find . -type f | wc -l

Количество файлов для каждой поддиректории данной папки - списком

Можно так:

find . -maxdepth 1 -type d -exec bash -c "echo -ne '{} '; find {} -type f | wc -l" \;

Что почитать:

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

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

var s: char;
begin

  while (s <> '#') do
  begin
    writeln('Vvedite simvol');
    readln(s);
    write('& ');
  end;
  writeln('Exit');
  readln();
end.