fkn+antitotal

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

Проверить можно ли строки из m перестановкой символов получить строку n.

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

Пользователь вводит произвольную строку, перестройте её в "ёлочку".
Например, если он ввел:
?
1

rewt34t54346t566

то в ответ программа должны вывести:
?
1
2
3
4
5
6

r
ew
t34
t543
46t56
6

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

Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.

Например, из строки:
▶
?
1

rew2@#$$#435tr353453t4er4

должны быть выделены подстроки:
▶
?
1
2
3
4
5

2
435
353453
4
4

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

Пользователь вводит строку символов, в которой есть два числа, разделенные другими символами, т.е. строка имеет вид:
▶
?
1

какиетосимволыЧИСЛО1какиетосимволыЧИСЛО2какиетосимволы

необходимо считать данные числа в две строковые переменные s1 и s2.

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

Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
Подсказка: массив должен быть "of char".

var i,k:integer; s:string; a:array [1..10] of char;
begin
  readln(s);
  k:=0;
  for i:=1 to Length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
    begin
      inc(k);
      a[k]:=s[i];
    end;
  end;
  for i:=low(a) to k do
    write(a[i]);
  readln();
end.   

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

Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней.

var i,k:integer; s:string;
begin
  readln(s);
  k:=0;
  for i:=1 to Length(s) do
    if (s[i]>='0')and(s[i]<='9') then inc(k);
  write(k);
  readln();
end.

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

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