12 написать, можно скопировать с интернета, небольшой реферат 2 в 1) на тему: операционные системы и программы, составляющие операционную систему, и программные оболочки) можно текст, но не большой.

FAR Manager — консольный файловый менеджер для операционных систем семейства Microsoft Windows.

Автор программы — Евгений Рошал. С 18 июня 2000 года разработкой FAR Manager занимается группа FAR Group. Начиная с версии 2.0 программа распространяется под модифицированной лицензией BSD. Предыдущие версии имели собственническую лицензию, по которой коммерческое использование программы являлось платным.

Программа FAR Manager наследует двухоконную идеологию, стандартную расцветку и систему команд (управление с клавиатуры) у известного файлового менеджера Norton Commander.

Norton Commander (сокращенно называемый на советском пространстве NC, сленг рус. Нортон ) — популярный файловый менеджер для DOS, первоначально разработанный американским программистом Джоном Соухэ. (Некоторые дополнительные компоненты были полностью или частично написаны другими людьми: Linda Dudinyak — Commander Mail, вьюверы; Peter Bradeen — Commander Mail; Keith Ermel, Brian Yoder — вьюверы.) Программа была выпущена компанией Peter Norton Computing (глава — Питер Нортон ), которая позже была приобретена корпорацией Symantec.

В течение нескольких лет Norton Commander конкурировал по степени популярности с файловыми менеджерами PCTools и XTree, однако уже с третьей версии Norton Commander вытеснил с персональных компьютеров эти программы.

Разработка велась с 1984 года (первоначально под названием VDOS). Первая версия была выпущена в 1986 году.

//Pascal ABC.NET 3.1 сборка 1219

uses
 system;

Var
 d1,d2:datetime;
 a:integer;
begin
writeln('1 дата:');
write('День:');readln(a);d1:=d1.AddDays(a);
write('Месяц:');readln(a);d1:=d1.AddMonths(a);
write('Год:');readln(a);d1:=d1.AddYears(a);
writeln('2 дата:');
write('День:');readln(a);d2:=d2.AddDays(a);
write('Месяц:');readln(a);d2:=d2.AddMonths(a);
write('Год:');readln(a);d2:=d2.AddYears(a);
writeln('Res:',abs((d2-d1).Days));
end.

Пример ввода:
1 дата:
День:1
Месяц:1
Год:1998
2 дата:
День:2
Месяц:1
Год:1999
Пример вывода:
Res:366

Var a, r: real;
begin
write('a = '); read(a);
write('r = '); read(r); 
if r >= a/sqrt(2) then writeln('Квадрат поместится в круг')
else if r <= a/2 then writeln('Круг поместится в квадрат')
else writeln('Круг и квадрат не поместятся друг в друга')
end.

Пояснение:
Радиус описанной около квадрата окружности равен половине диагонали квадрата. Диагональ квадрата по теореме Пифагора = √(a² + a²) = a√2, соответственно радиус = a√2/2 = a/√2. Если радиус данной окружности, больше либо равен a/√2, тогда квадрат помещается в круг.
Радиус вписанной в квадрат окружности равен половине его стороны, т.е a/2. Если радиус данной окружности меньше либо равен, чем a/2, тогда круг вмещается в квадрат.