Каждая страница текстового документа созданного с использованием 64 символьного алфавита содержит 64 строки по 32 символа в каждой. информационный вес документа состовляет 240 кбайт. скорость печати принтера состовляет 8 стр/мин.и еще на вопросы ответить надо: 1)сколько минут потребуется для распечатки данного текстового документа? 2)сколько минут потребуется для распечатки данного текстового документа если бы прии создании использовали алфавит в котором в 2 раза меньше символов чем первоночально и при этом скорость печати увеличилась в 2 раза?

Размер алфавита — 64 символа.
2^6 = 64
Следовательно вес одного символа 6 бит.

240 Кбайт = 240 000 байт = 240 000 х 8 бит = 1 920 000 бит

На одной странице содержится 64 х 32 = 2048 символов.
Вес одной страницы: 6 х 2048 = 12 288 бит
Количество страниц: 1 920 000 / 12 288 = 156,25 ≈ 157 страниц
157 страниц / 8 минут = 19,625 минут

Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны.
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:


// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
  Point=record
  x,y:real
  end;

procedure GetPoint(c:char;var M:Point);
begin
  Write('Введите координаты точки ',c,': ');
  Read(M.x,M.y)
end;

function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));

begin
  var A,B,C:Point;
  GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
  var ab:=Dist(A,B);
  var bc:=Dist(B,C);
  var ac:=Dist(A,C);
  if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
    Writeln('Треугольник существует')
  else Writeln('Треугольник не существует')
end.

Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует

//Pascal ABC.NET v3.0 сборка 1111

Const
 s=5;

Var
 ar:array[1..s] of integer;
 n,m,i:integer;
begin
 writeln('N');
 readln(n);
 writeln('M');
 readln(m);
 writeln('Array:');
 for i:=1 to s do
   readln(ar[i]);
 writeln('First array:');
 for i:=1 to s do
  begin
   write(ar[i]:4);
   if ar[i] div n<>0 then ar[i]:=ar[i]+m;
  end;
 writeln;
 writeln('Final array:');
  for i:=1 to s do
   write(ar[i]:4);
end. 

Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
   1   2   3   4   5
Final array:
   1   2   6   7   8

//Блок-схема во вложении