Перемещая элементы снизу, восстановите пропущенные обозначения в структурной схеме компьютера.

function isLucky(a: integer): boolean;
var s: string;
begin  
    str(a, s);  
    while length(s) < 6 do s := '0' + s;  
    isLucky := ord(s[1]) + ord(s[2]) + ord(s[3]) = ord(s[4]) + ord(s[5]) + ord(s[6])
end;
var 
    sTicket: string;    
    iTicket, i, err, sum: longint;
begin  
    write('Введите Ваш номер билета: ');  
    read(sTicket);  
    val(sTicket, iTicket, err);  
    for i := 1 to iTicket do    
        if isLucky(i) then inc(sum);  
    writeln('Выдано ', sum, ' счастливых билетов');  
    writeln('Осталось выдать ', 55251 - sum, ' счастливых билетов')
end.

Формулы для графиков (видны на 2 картинке):

1.   =1/8*A2^2-2

2.   =-1/8*A2^2+2

3.   =1/8*A6^2-1

4.   =-((A3+2)^2)+3

5.   =-((A4+2)^2)+2

6.   =-((A12-2)^2)+3

7.   =-((A13-2)^2)+2

Объяснение:

картинки

Для введения значений x используем автозаполнение (в ячейку А2 пишем -4, в ячейку А3 пишем -3,5, выделяем обе ячейки и растягиваем вниз за маркер заполнения)

Формулы вставляем в верхнюю ячейку интервала, которому принадлежит х и копируем в остальные ячейки.

Для 4 формулы взят интервал [-3,5; -1], для 5 формулы взят интервал [-3; -1,5], для 6 формулы взят интервал [1; 3,5], для 7 формулы взят интервал [1,5; 3].

Для построения графика выделяем всю таблицу (диапазон А1:Н18) - открываем вкладку меню Вставка - Диаграммы - Точечная - Точечная с гладкими кривыми.

При желании можно дать диаграмме название, убрать оси и сетку и задать другие цвета графикам.