fkn+antitotal

Задание 10 Урок 10.1

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

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

Консоль:

7 14 21 28 35 42 49 56 63 70 77 84 91 98  

Задание 4 Урок 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

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

Дано целое положительное число A и целое положительно число B. Выведите на экран все числа, расположенные между между ними.

procedure konsol (a, b: integer);
begin
  if not (a = b-1) then
  begin
    a:= a + 1;
    write (a, '  ');
    konsol (a, b);
  end;
end;

begin
  konsol (2, 13);
  readln();
end.

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

3  4  5  6  7  8  9  10  11  12  

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

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

procedure konsol (a, n: integer);
begin
  if not (a > n) then
  begin
    write (a, '  ');
    a:= a + 1;
    konsol (a, n);
  end;
end;

begin
  konsol (1, 11);
  readln();
end. 

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

1  2  3  4  5  6  7  8  9  10  11  

Урок 21 Задача 1:

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

procedure konsol (n: integer);
begin
  if not (n<1) then
  begin
    write (n, '  ');
    n:= n-1;
    konsol (n);
  end;
end;

begin
  konsol (11);
  readln();
end.

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

11  10  9  8  7  6  5  4  3  2  1  

Урок 19 Задача 4:

Дан текстовый файл, в котором с в ASCII-стиле нарисованы цепочки из цифр, которые связаны по горизонтали и вертикали.
Все цепочки составляют одно дерево, которое устроено так:

Задача 24 Урок 15:

Задача про банкомат:

Задача 23 Урок 15:

Задача про Бинарные часы:

Задача 22 Урок 15:

У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.

Задача 21 Урок 15:

Даны два массива по 20 элементов каждый (заполните случайными числами, так чтобы среди элементов массива при очередном запуске программы могли встретиться и отрицательные и положительные числа).
Сравните каждый 3-ий элемент 1-ого массива с каждый 2-ым элементов 2-ого массива - сравнение проводите пока не закончится та выборка, которая короче.