До семи лет мальчик обычно оставался на попечении женщин, потом начиналось суровое военное воспитание. По целым дням он пропадал в лесах, окружавших отцовский замок, учился сражаться на мечах, копьях, биться на палках, стрелять, ездить на коне, плавать, переносить походные тяготы.Учили его и охотничьим навыкам — обращаться с соколом, носить его на руке, напускать на птицу, охотиться с собаками. Охота была любимым развлечением рыцарства в свободное время.Однако о развитии ума, обучении каким-либо наукам заботились мало. Редко кто из рыцарей, чего греха таить, умел читать и писать. Грамота считалась, скорее, «женским делом» — девочка училась ей у домашнего священника и потом с удовольствием читала молитвенник или героические .Мальчику оставалось лишь слушать песни бродячих жонглеров, забредших в отцовский замок, восхищаться подвигами их героев и давать себе обещания подражать им в течение всей жизни.С ранних лет будущий рыцарь укреплялся в беззаветной вере своих отцов в учение Христа, в христианских заповедях. Но и христианство воспринималось упрощенно, лишь в соответствии с рыцарским духом, поскольку оно как бы оправдывало воинские устремления.
// Первая программа
program One;
var a, b: Integer;
begin
write('Введите числитель: ');
read(a); {ввод числителя}
write('Введите знаменатель: ');
read(b); {ввод знаменателя}
{Правильной называется дробь, у которой модуль числителя меньше модуля знаменателя,
поэтому проверяем это условие}
if abs(a)<abs(b) then
{Если условие выполняется, то пишем, что дробь правильная}
writeln('Дробь правильная.')
else
{В противном случае пишем, что дробь неправильная}
writeln('Дробь неправильная.')
end.
// Вторая программа
program Two;
var a, b: Integer;
begin
write('Введите первое число: ');
read(a); {ввод первого числа}
write('Введите второе число: ');
read(b); {ввод второго числа}
{Проверить число на делимость можно с операции взятия остатка.
Есть остаток — число нацело не делится; остаток равен 0 -- число делится нацело}
if (a mod b) = 0 then
{Если остатка нет, то пишем, что первое число делится нацело на второе}
writeln('Первое число делится на второе.')
else
{В противном случае пишем, что первое число не делится нацело на второе}
writeln('Первое число не делится на второе.')
end.
// Третья программа
program Three;
var a, b: Integer;
begin
write('Введите первое число: ');
read(a); {ввод первого числа}
write('Введите второе число: ');
read(b); {ввод второго числа}
{Если второе число меньше первого -- то будем выводить его,
так как в ином случае первое и второе числа равны (и тогда мы можем вывести
любое из них, они же одинаковые), либо меньшее число -- первое, и мы выведем его}
write('Меньшее число: ');
if (a > b) then
{Если второе число меньше первого, его и выводим}
writeln(b)
else
{В противном случае выводим первое число}
writeln(a)
end.
Объяснение:
Пояснения находятся в фигурных скобках.