Рассказ набранный на компьютере содержит несколько страниц. на каждой странице 16 строк по 64 символа. информационный объём рассказа составляет 10 кб. определите количество страниц в тексте,считая, что символ закодирован 16 битами
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
function Dist2(a,b:real):=a*a+b*b; // квадрат расстояния до точки
begin var n:=ReadInteger('n='); var a:=SeqRandom(2*n,-999,999).Select(t->t/10).ToArray; a.Println; var r:=0.0; var d:real; for var i:=0 to n-1 do begin d:=Dist2(a[i],a[i+1]); if d>r then r:=d end; Writeln('Минимальный радиус равен ',Sqrt(r):0:3) end.
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
function IsPrime(Self:integer):boolean; extensionmethod; // является ли число n простым begin if Self<4 then Result:=True else begin var found:=(Self mod 2=0); var p:=3; while (not found) and (sqr(p)<=Self) do begin found:=(Self mod p=0); p+=2 end; Result:=not found end end;
function SumDig(Self:integer):integer; extensionmethod; // возвращает сумму цифр числа n begin var n:=Self; Result:=0; while n>0 do begin Result+=n mod 10; n:=n div 10 end end;
begin 100.To(999).Where(t->t.SumDig.IsPrime).Println end.
2*х=10
х=5 страниц