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

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

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

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

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

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

var s: string;
    i, n: integer;
begin
  write('Введите произвольную строку: ');
  readln(s);
  writeln();
  n := length(s);
  if n < 5 then
   writeln('Ошибка')
  else
   for i := 1 to n do
    if i mod 5 = 0 then write(s[i], ' ');
  readln();
end.

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

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

var s: string;
    i, n: integer;
begin
  write('Введите произвольную строку: ');
  readln(s);
  writeln();
  for i := 1 to length(s) do
   if s[i] = 'k' then n += 1;
  if n > 0 then writeln('В строке символ k встречается ', n, ' раз')
  else writeln('В строке символ k отсутствует');
  readln();
end.

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

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

Задача 22 урок 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами.

Задача 19 Урок 15:

Задача про банкомат:

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

Например, пусть у нас набор купюр 1000, 500, 100 и 50 рублей:

Задача 18 Урок 15:

У вас есть два массива целых чисел по 10 элементов в каждом.
Выведите на экран все числа из первого массива, которые не содержаться во втором.

Задача 17 Урок 15:

Даны два массива по 20 элементов каждый (заполните случайными числами, так чтобы среди элементов массива при очередном запуске программы могли встретиться и отрицательные и положительные числа).
Сравните каждый 3-ий элемент 1-ого массива с каждый 2-ым элементов 2-ого массива - сравнение проводите пока не закончится та выборка, которая короче.

Например пусть мы имеем два массива (запишу лишь начальные элементы):

Задача 21 урок 13.1

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1.