fkn+antitotal

Решение задачи 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, при этом в полученном массиве не должно быть одинаковых значений.

Immer only supports setting array indices and the 'length' property

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