fkn+antitotal

Урок 18. Задача 6.

Пользователь вводит в консоль строки вида (имя + произвольное число пробелов + балл):

Вася         485
Коля       555
Юра        61
..........
....
end // признак завершения ввода

(пока не введёт строку end) -- где слева указаны имена участников, а справа -- число баллов.
Используя массив строк и массив целых чисел (пусть оба массива будут максимальной длины =3) считайте отдельно имена и баллы и определите победителя, выведя его имя и полученный им балл.

Урок 18. Задача 5.

Пользователь вводит в консоль строку вида:

Имя         123

-- т.е. слева имя и через произвольное количество пробелов число баллов. Разберите эту строку получив имя пользователя как значение в переменной типа string и число баллов в переменной типа integer;

Урок 18. Задача 4.

Пользователь вводит произвольную строку, посчитайте количество чисел в ней - тех, что больше 125.

Урок 18. Задача 3.

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

var  s :string;
     i, j, sum :integer;

begin
  s := 'f36dgv-758-vsdfg45';
  sum := 0;
  for j := 1 to length(s) do
  begin
    val(s[j], i);
    if i > 5 then
      sum := sum + 1;
  end;
  writeln(sum);
  readln();
end.

Урок 18. Задача 2.

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

Урок 18. Задача 1.

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

var i, c :integer;
    s :string;

begin
  s := '354g78982';
  val(s, i, c);
  if (c <> 0) then
    writeln('error')
  else
    writeln(i);
  readln();
end.  

Урок 13.1 Задача 19

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:

4 6
7 9
12 14
17

Урок 13.1 Задача 18

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18:

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.

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

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
810 два числа3101214 три числа316182022 четыре числа3....3....и т.д.
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно), при этом решение одним циклом можно сделать, как используя делимость нацело (для определения момента вывода тройки), так и не используя.
Решите всеми тремя способами.

Урок 13.1 Задача 16

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8101214 четыре числа316182022 четыре числа3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
810 два числа31416 два числа3....3....и т.д.