fkn+antitotal

Урок 16

Вспомогательная задача (можно решить, просто используя одномерные массивы):
Пользователь вводит 4 целых числа, считаем все их координатами на прямой,
а именно: первые два числа - начало и конце отрезка 1
вторые два - начало и конец отрезка 2
Задача: напишите подпрограмму, которая определит пересекаются ли данные отрезки.

Урок 16

Пользователь вводит подряд 8 целых числ, сохраните их в двух разных двумерных
массивах:
1) первые 4 числа так, чтобы в каждом подмассиве было 2 элемента.
2) вторые 4 числа так, чтобы в каждом подмассиве было по 1 элементу
Обойдите эти двумерные массивы и распечатайте результат (значения очередного
подмассива печатайте с новой строки)

Урок 15

Задача про банкомат:
Пользователь вводит целое число - сумму в некоторой валюте, требуется выдать
эту сумму купюрами наибольшего достоинства.
Напишите программу, которая в качестве результата скажет как именно надо
разменять указанную сумму купюрами наибольшего достоинства (
укажет количество для купюры каждого типа)

Например, пусть у нас набор купюр 1000, 500, 100 и 50 рублей:

Урок 15

Задача про Бинарные часы:
бинарные часы задача программирование
Пояснение:
На картинке выше фото часов, которые показывают время следующим образом:

Урок 15

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

Урок 15

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

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

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

var i: integer;
begin
    for i:=35 to 117 do
        if((i mod 3) = 0) then
            write(i, ' ');

    readln();
end.

КОНСОЛЬ:

36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99 102 105 108 111 114 117

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

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

var i, a: integer;
begin
    a:=10;

    if (a > 100) then
        for i:=a downto 1 do
            write(i, ' ')
    else
        for i:=1 to a do
            write(i, ' ');

    readln();
end. 

КОНСОЛЬ:

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

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

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

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

var i: integer;
begin

    for i:=35 to 64 do
        write(i, ' ');

    readln();
end.

КОНСОЛЬ:

35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64