fkn+antitotal

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

Имеется текстовый файл в котором содержится не более 30 строк, в каждой строке не более 30 символов (пробелы тоже считаются символами). Цифры и другие символы перемешаны в каждой строке.
Задание: найдите максимальное число, c учетом того, что числом считаются подряд идущие цифры не только по горизонтали, но и по вертикали.

задача 3 урок 19

Имеется текстовый файл в котором содержится не более 30 строк, в каждой строке не более 30 символов (пробелы тоже считаются символами). Цифры и другие символы перемешаны в каждой строке.
Задание: найдите максимальное число, c учетом того, что числом считаются подряд идущие цифры не только по горизонтали, но и по вертикали.

Примеры:

fsd334rgd
rfg46gdfg
ter5tge56
123gergf

Ответ: 345

Урок 14

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

1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17

ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.

Урок 14

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

- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -

-- для вывода очередной строки используйте подпрограмму,
принимающую на вход нужные агрументы.

Урок 14

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

Урок 14

Напишите процедуру, которая выводит на экран сумму трёх целых чисел.

var a, b, c: integer;

  procedure p3(d, e, f: integer);
  begin
    writeln(d + e + f);
  end;

begin
  a := 3;
  b := 4;
  c := 5;
  p3(a, b, c);
  readln();
end.

КОНСОЛЬ

12

Урок 14

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

var a, b, c: integer;

function f3(d, e, f: integer): integer;
begin
  result := d + e + f;
end;

begin
  a := 3;
  b := 4;
  c := 5;
  writeln(f3(a, b, c));
  readln();
end.

КОНСОЛЬ

12

Урок 13.2

В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с
7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль)
они выглядят так:

---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++
---++++++++++

Задание: визуализируйте на счетах введенное пользователем число.

Примеры:

Пользователь вводит: 7
Получаем:

Урок 13.2

Подготовительная задача для "счет"
У вас есть число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице):
если ноль, то все кости справа:

---++++++++++

если три, то значащая часть слева, а все отстальное справа:

+++---+++++++

если девять:

Урок 13.2

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