Пусть каждый символ кодируется 1 байтом
Тогда на каждой странице 60*80 = 4800 символов, всего в книге 250*4800 = 1200000 байт информации
Макс. количество книг:
750 Мб / 1200000 б = 750 * 1024 * 1024 б / 1200000б = 655,36 книг = 655 книг
S = 0.5ah
h/c = sin(β) → β = arcsin(h/c)
Периметр P=a+b+c
По теореме косинусов b² = a² + c² - 2ac cos(β) и можно найти третью сторону b.
А дальше используем теорему синусов:
a/sin(α) = /sin(β) = c/sin(γ) и отсюда находим углы α и γ, зная b/sin(β).
<span><em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
</span><span>begin
var (a,c,h):=ReadReal3('Введите стороны a, c и высоту h:');
var S:=0.5*h*c;
var beta:=ArcSin(h/a);
var b:=Sqrt(a*a+c*c-2*a*c*Cos(beta));
var P:=a+b+c;
var k:=b/Sin(beta);
var (alpha,gamma):=(ArcSin(a/k),ArcSin(c/k));
Writeln('b=',b:0:5,', alpha=',RadTodeg(alpha):0:3,
', beta=',RadtoDeg(beta):0:3,', gamma=',RadtoDeg(gamma):0:3,
', P=',P:0:5,', S=',S:0:5)
end.</span>
<u>Пример</u>
Введите стороны a, c и высоту h: 5 6.5 4
b=5.31507, alpha=48.814, beta=53.130, gamma=78.056, P=16.81507, S=13.00000
<span>При имитационном моделировании структура системы отображается в модели, а процессы ее функционирования проигрываются (имитируются) на построенной модели. Выделяют статическое описание структуры системы, для чего нужно выполнять структурный анализ процессов, и описание динамики взаимодействий элементов системы, для чего нужно построить функциональную модель динамических процессов.</span>
Var
a,b,c,d:longint;
begin
readln(a);
b:=a div 100 mod 10;
c:=a div 10 mod 10;
d:=a mod 10;
writeln(b+c+d);
writeln(b×c×d);
writeln(d,c,b);
end.
Не совсем красиво но вроде как правильно. Добавлю пояснение(схема)
