Предмет МДК
Вариант № 4
Задание 1 Изобразите графически:
G(V,E) - орграф.
V={1,2,3,4,5,6}, E={(1, 6), (4, 5), (1, 2), (2, 3), (3, 6)}.
Задание 2 ответьте на контрольные во Что называется графом? Приведите примеры
2) Что называется маршрутом, циклом и цепью графа?
3) Что называется упорядоченным деревом?
Задание 3 Приведите пример из жизни, когда отношения между элементами
множества образуют дерево. Укажите на рисунке корень, узлы, листья,
ярусы.

Алфавит - это счетное множество.Мощностью такого множества называется количество элементов этого множества. В настоящее время термин килобайт не однозначен. Возьмем его значение (наверняка сейчас так и есть в школьной программе)1 килобайт = 1024 байта. Итого:У нас 256*2 = 512 символов, которые занимают 1024/16 = 64 байта. Таким образом  один символ занимает 64/512  = 1/8 байта или один бит. (В каждом байте ровно 8 бит). Один бит информации это нолик или единичка. то есть имеет всего два значения. Это и есть ответ к задаче:Мощность алфавита: 2 

1)
var a:string;
    i, o: Integer;
    p: Real;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (sqr(o) = p*p*p) then writeln('true')
        else writeln('false');
end.

2)
var a:string;
    i, o, p: Integer;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (p mod 3 = 0) then writeln('true')
        else writeln('false');
end.

3)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a = b) and (b = c)) then writeln('true')
        else writeln('false');
end.

Всё проверено, удачи:)