Для записи текста использовался 1024 – символьный алфавит. Каждая страница содержит 24 строк по 72 символов в строке. Какой объем информации содержат 16 страниц текста? ответ запишите в кб.
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Число элементов в массиве:'); var a:=ArrRandom(n,1,99); Write('Исходный массив: '); a.Println; var n1,n2:integer; Write('Границы номеров элементов для суммы: '); Read(n1,n2); if n1>n2 then Swap(n1,n2); if (n1<1) or (n2>n) then Writeln('Границы выходят за пределы массива') else Writeln('S=',a[n1-1:n2].Sum) end.
Пример Число элементов в массиве: 15 Исходный массив: 89 82 45 28 88 68 34 19 35 26 67 43 71 96 66 Границы номеров элементов для суммы: 4 9 S=272
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Число элементов в массиве:');
var a:=ArrRandom(n,1,99);
Write('Исходный массив: '); a.Println;
var n1,n2:integer;
Write('Границы номеров элементов для суммы: '); Read(n1,n2);
if n1>n2 then Swap(n1,n2);
if (n1<1) or (n2>n) then Writeln('Границы выходят за пределы массива')
else Writeln('S=',a[n1-1:n2].Sum)
end.
Пример
Число элементов в массиве: 15
Исходный массив: 89 82 45 28 88 68 34 19 35 26 67 43 71 96 66
Границы номеров элементов для суммы: 4 9
S=272
using System;
class Program
{
static void Main()
{
int x1 = 2, y1 = 1;
int x2 = 6, y2 = 5;
int x3 = 10, y3 = 1;
var a = Distance(x2, y2, x3, y3);
var b = Distance(x1, y1, x3, y3);
var c = Distance(x2, y2, x1, y1);
Console.WriteLine("S = {0}", Square(a, b, c));
Console.ReadKey();
}
//растояние между точками
static double Distance(int x1, int y1, int x2, int y2)
{
return Math.Sqrt((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1));
}
//формула герона
static double Square(double a, double b, double c)
{
var p = (a + b + c) / 2;
return Math.Sqrt(p * (p - a) * (p - b) * (p - c));
}
// теорема косинусов
static double Angle(double a, double b, double c)
{
return Math.Acos((b * b + c * c - a * a) / (2 * b * c));
}
static bool IsAcuteAngel(double alpha)
{
return alpha < Math.PI / 2;
}
}