Составить блок схему к уравнению а^2*х+b*x=0.

{а^2*х+b*x=0}var a,b,D,x1,x2,s:real;
begina:= 4;b:=4;s:= sqr(b) - 4*a;
writeln('s = ',s);if s > 0 then begin D:= sqrt(s); x1:= (-b + D)/(2*a);x2:= (-b - D)/(2*a); writeln('x1 = ', x1);writeln('x2 = ', x2);end else if s = 0 then begin x1:= (-b)/(2*a);writeln('x1 = ', x1);writeln('x2 = ', x1);end elsewriteln('Уравнение не имеет решения');end.

Дано: текст 3.5 килобайта

Найти: количество символов в тексте

Решение: Итак, текста у нас 3.5 килобайта

Переведём в байты:

3.5 кбайта * 1024 байт\килобайте = 3584 байт.

Так как кодировка не указана выбираем саму распространенную при обучении однобайтовую, тогда символ занимает ровно один байт и значит у нас 

3584 символа. Если же используется двухбайтная кодировка, то 3584/2 = 1792 символа

ответ: 3584 для одного байта на символ или 1792 сиволов для двух байтной кодировки.

 

 

Задача 2

Дано:

Два текста - одинаковое количество символов.

У первого алфавит мощностью 32 символа,

у второго алфавит мощностью 64 символа

Найти:

во сколько раз отличаются объемы текстов

найдем объем инфомрации символа первого текста

log2(32) = 5 бит (логарифм двоичный от 32)

для второго текста 

log2(64) = 6 бит

Пусть текст имеет длину Х

тогда первый текст имеет объем 5x, а второй 6x.

 

Разделим: 6x/5x = 6/5 или 1.2 

ответ: в 6\5 раз отличаются объемы текстов.

 

 

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  var c:=s.ToWords.Where(t->t.Length>1).SelectMany(w->w.Pairwise)
      .Select(t->t[0]+t[1]).GroupBy(t->t).Select(t->(t.Key,t.Count))
      .OrderByDescending(t->t[1]).ThenByDescending(t->t[0]).First[0];
  Writeln('Чаще других встречается цепочка "',c,'"')
end.

Пример
TWAS BRILLIG AND THE SLITHY TOVES DID GYRE AND GIMBLE IN THE WABE ALL MIMSY WERE THE BOROGOVES AND THE MOME RATHS OUTGRABE
Чаще других встречается цепочка "TH"

Замечание: ограничение на длину строки увеличено до 2 млн. символов.