fkn+antitotal

Решение задачи 17 из главы 13.1

17. Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента

Решение задачи 16 из главы 13.1

Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:
?
1
8 10 3 12 14 3 16 18 3 20 22 3 и т.д.
-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.

Урок 16 (решенная задача номер 5)

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

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

rew2@#$$#435tr353453t4er4

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

Урок 16 (Решенная задача номер 4)

4)Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.

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

Урок 16(Решенная задача номер 3)

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

var s : string;
    i, c : integer;

begin
  writeln('vvedite stroky');
  readln(s);
  c := 0;
  for i := 1 to length(s) do
   if (s[i] >= '0') and (s[i] <= '9') then
    Inc(c);
  writeln('kol-vo cifr ravno ', c);
end.

Урок 16(Решенная задача номер 2)

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

var s: string;
    i, c : integer;

begin
 writeln('vvedite stroky');
 readln(s);
 if (length(s) >= 5) then
 begin
   for i:= 1 to length(s) do
    if (i mod 5 = 0) then
     writeln(s[i]);
 end
 else writeln('osibka');
end.

.

Урок 16 (Решенная задача 1)

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

var s : string;
    i, c : integer;
begin
  c := 0;
  writeln('vvedite stroky');
  readln(s);
  for i := 1 to length(s) do
   if (s[i] = 'k') then
    c := c + 1;
  writeln('kol-vo k = ', c);
end.

Урок 15 (Решенная задача 13)

Дан массив длиной N, состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.

Урок 15 (Решенная задача номер 11)

Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:

a1 # a2 # ..... # aN

где
a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)

Урок 15(Решенная задача 10)

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