Хороший пример таблицы Брадиса, это по сути база данных, которая содержит вычисленные данные
для быстрого использования при решении задач, она имеет текстовый удобночитаемый вид, и может быть
перенесена в ПК для удобства использования, все зависит от целей...
Алг Число
нач
цел n, n1, k, f
вывод "Введите целое число", нс
ввод n
n1:= div(n,10)
k:= mod(n,10)
f:= 1
нц пока n1<>0
если mod(n1,10) > k то
f:= 0
все
k:= mod(n1,10)
n1:= div(n1,10)
кц
если f=1 то
вывод "Да."
иначе
вывод "Нет."
кон
1) Из матем :
Число́ --важнейшее математическое понятие. Возникнув в простейшем виде ещё в первобытном обществе, понятие Ч. изменялось на протяжении веков, постепенно обогащаясь содержанием по мере расширения сферы человеческой деятельности и связанного с ним расширения круга вопросов, требовавшего количеств. описания и исследования. На первых ступенях развития понятие Ч. определялось потребностями счёта и измерения, возникавшими в непосредственной практической деятельности человека. Затем Ч. становится основным понятием математики, и дальнейшее развитие понятия Ч. определяется потребностями этой науки.
2)Русский
Понятие о лексических синонимах
Если анализ семантической структуры слова наглядно показывает степень самостоятельности значения слова и ее пределы, то есть характеризует системные отношения на уровне одного слова, то синонимия является одним из ярких и убедительных доказательств системных отношений в лексике в сфере группы близких по значению слов.
3)ГЕОГРАФ:
Степи--Под именем С. подразумевают более или менее ровные сухие безлесные пространства, покрытые обильной травянистой растительностью. Пространства ровные и безлесные, но влажные, не называются С.; они образуют или болотистые луга, или, на дальнем севере, — тундры. Пространства с очень редкой растительностью, которая не образует
травянистого покрова, но состоит из отдельных, далеко друг от друга разбросанных кустиков, называются пустынями.
Function min(a: array of integer): integer;
var i, m: integer;
begin
for i := 0 to length(a) do
if (a[i] < m) then m := a[i];
result := m;
<span>end;
Вот, в теории должно работать, но проверить, извините, не могу, PascalABC не поддерживает передачу массивов><</span>