fkn+antitotal

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

Напишите программу, которая будет заполнять массив из 10 элементов случайными числами из диапазона от 0 до 20, при этом в полученном массиве не должно быть одинаковых значений.

Задача 9 урок 16

Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно), например:
для строки:

5533g

вернуть:

53g

для строки:

b5ghh55788oooggtttttt

вернуть:

Задача 8 урок 16

Проверить можно ли строки из m перестановкой символов получить строку n.
Примеры (входные данные и ответ):

abc и bca

-- можно

abc и baa

-- нельзя

abcc и cbac

-- можно

abc4c и cb55ac

-- нельзя

Задача 7 урок 16

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

rewt34t54346t566

то в ответ программа должны вывести:

Задача 6 урок 16

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

rew2@#$$#435tr353453t4er4

должны быть выделены подстроки:

2
435
353453
4
4

Подсказка: массив должен быть "of string".

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

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

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

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

например:

для:

wsefg34teth567gfd

получим s1='34' и s2='567'

для:

wsefg22teth88

получим s1='22' и s2='88'

для:

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

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

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

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

program U16Z3;
var s: string;
    i,n: integer;
begin
  writeln('vvedite stroku s');
  readln(s);
  n:=0;
  for i:=1 to length(s) do
    if (s[i]>='0') and(s[i]<='9') then
      n:=n+1;
  writeln('chislo cifr v stroke = ',n);
  readln();
end.  

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

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

program U16Z2;
var   s: string;
  i: integer;
begin
  writeln('vvedite stroku s');
  readln(s);
  for i:=1 to length(s) do
    if ((i mod 5)=0) then
      writeln(s[i]:2);
  readln();
end.  

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

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

program U16Z1;
var n,i:integer;
    k:char;
    s:string;
begin
  writeln('vvedite k');
  readln(k);
  writeln('vvedite stroku s');
  readln(s);
  n:=0;
  for i:=1 to length(s) do
    if (s[i]=k) then
      n:=n+1;
  writeln('simvol ',k,' vstrechaetsya ',n,' raz');
  readln();
end.