fkn+antitotal

Задача 2 Урок 17

Пользователь вводит произвольную строку, выведите на экран каждый пятый символ или сообщение об ошибке, если строка состоит менее чем из 5 символов.

var i,k:integer; s:string;
begin
  readln(s);
  if length(s)<5 then
     write('oshibka')
  else
    for i:=1 to length(s) do
      if (i div 5>=1)and (i mod 5=0) then
        writeln(s[i]);
  readln();
end.   

Задача 1 Урок 17

Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.

var i,k:integer; s:string;
begin
  s:='kikimora';
  for i:=1 to length(s) do
    if s[i]='k' then
      k+=1;
  writeln('k vstrecheno ',k,' raz');
  readln();
end.    

Файл docker-compose.yml

Задача 5 Урок 16

Пользователь вводит N (N

Напишите подпрограмму, которая определит - есть ли у них общее пересечение, и если есть - вычислит координаты отрезка-пересечения.

Задача 4 Урок 16

Пользователь вводит 4 целых числа, считаем все их координатами на прямой, а именно:

первые два числа - начало и конце отрезка 1
вторые два - начало и конец отрезка 2

Задача: напишите подпрограмму, которая определит какой отрезок является пересечением этих двух заданных отрезков (если это пересечение вообще есть).

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

Есть функция, которая считает сумму четырех чисел:
▶
?
1
2
3
4

function sum4(a, b, c, d: integer): integer;
begin
result := a + b + c + d;
end;

Реализуйте обертку над sum4(), которая делает то же самое, но имеет сигнатуру вида:
▶
?
1
2
3

type ar = array[1..2, 1..2] of integer;

function searchRes2(a1:ar): integer;

Задача 2 Урок 16

Пользователь вводит 4 целых числа, считаем все их координатами на прямой, а именно:

первые два числа - начало и конце отрезка 1
вторые два - начало и конец отрезка 2

Задача: напишите подпрограмму, которая определит пересекаются ли данные отрезки.

Задача 1 Урок 16

Пользователь вводит подряд 8 целых числ, сохраните их в двух разных двумерных массивах:

1) первые 4 числа так, чтобы в каждом подмассиве было 2 элемента.
2) вторые 4 числа так, чтобы в каждом подмассиве было по 1 элементу

Обойдите эти двумерные массивы и распечатайте результат (значения очередного подмассива печатайте с новой строки)

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

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

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

Напишите программу, которая принимает у пользователя два целых числа (часы и минуты) и выводит в консоль полученное время в формате бинарных ASCII-часов 0-11 ч. и 0-59 мин.