fkn+antitotal

Урок №9 Задание №3

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

program Pr9_3;

var a,b:integer;

begin
  writeln('Введите два числа: ');
  readln(a,b);

  if (a>b) then writeln(12);

  readln();
end.              

Консоль:

Введите два числа:
10
1
12

Задание 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 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.