// PascalABC.NET 3.6.3
uses School;
function Divizors(n: integer): List<integer>;
begin
var L := new List<integer>;
L.Add(1);
L.Add(n);
if n > 3 then
begin
var k := 2;
while (k * k <= n) and (k < 46341) do
begin
if n mod k = 0 then
begin
var t := n div k;
L.Add(k);
if k < t then L.Add(t)
else break
end;
Inc(k)
end;
L.Sort;
end;
Result := L
end;
begin
// 1
if ReadInteger.IsPrime then Println('YES')
else Println('NO');
// 2
ReadInteger.Factorize.First.Println;
// 3
var a := Divizors(ReadInteger);
Print(a.Count, a.Sum)
end.
ответ:
а) какую величину на руси измеряли ведрами?
ведром в древней руси измеряли объем.
основная дометрическая мера объема жидкостей – ведро = 1/40 бочки = 10 кружек = 30 фунтов воды = 20 водочных бутылок (0,6) = 16 винных бутылок (0,75) = 100 чарок = 200 шкаликов = 12 литров.
деление на более мелкие меры проводилось по двоичному принципу: ведро делили на 2 полуведра или на 4 четверти ведра или на 8 получетвертей, а также на кружки и чарки.
б) что измеряют галлонами? баррелями? в каких странах используются эти единицы измерения?
баррель — это старинная единица измерения объёма жидкости.
американский нефтяно́й ба́ррель — единица измерения объёма нефти, равная 42 галлонам, или 158,988 л. интересно, что баррель для измерения прочих жидкостей в америке вмещает только 31,5 галлона.
галло́н — мера объёма, обычно используется для жидкостей, в редких случаях — для твёрдых тел.
американский галлон и галлон различаются: американский галлон = 3,785 литра; галлон = 4,546 литра.
баррель (около 159 л) и галлон (около 4 л), как меры объема в основном используют в и сша.
в) на емкостях иностранного производства иногда встречается такое обозначение объема: 100cl (100 сантилитров). выразите этот объем на принятых в россии единицах.
1 сантилитр равно 0.01 литр
1 литр равно 100 сантилитр