с тестом по инфе Какой вид не относится к структурам построения данных в базе данных: a. Сетевой; b. Табличный; c. Структурный. 2. Что отличает сетевую структуру от иерархической: a. Отсутствие данных верхнего уровня; b. Наличие подчинения данных нижнего уровня данным верхнего уровня; c. Взаимодействие данных между уровнями и отсутствие чистого подчинения между уровнями. 3. Сколько таблиц может быть в реляционной базе данных: a. Одна; b. Много; c. В данной структуре отсутствуют таблицы. 4. База данных предназначена для: a. Ввода данных в таблицы; b. Хранения данных; c. Хранения, редактирования и использования данных. 5. Поле таблицы – это: a. Столбец; b. Строка; c. Выделенная часть таблицы; 6. Запись – это: a. Столбец; b. Строка; c. Выделенная часть таблицы; 7. База данных может содержать: a. Информацию; b. Данные о базе; c. Данные и информацию какой-либо информационной системы. 8. Какого типа данных нет: a. Логического; b. Текстового; c. Обязательного

var

  a: 1000..9999;  //четырехзначное число

  a1, a2, a3, a4: 1..9;  {цифры четырехзначного числа (цифры могут быть только от 1 до 9 в десятичной системе счисления)}

 

begin

  writeln('Введите четырехзначное число');

  readln(a);  //Вводим четырехзначное число

  a1:= a div 1000;  {Находим первую цифру, для этого делим это число без остатка на 1000 (например пусть число будет 5479, тогда получится 5479 / 1000 = 5,479; отбрасываем остаток и получается 5)}

  a2:= (a mod 1000) div 100;  {Находим вторую цифру, для этого сначала берем остаток от деления этого числа на 1000, а потом делим результат на 100 без остатка (5479 / 1000 = 5,479; оставляем остаток, получается 479; 479 / 100 = 4,79 ; отбрасываем остаток и получается 4)}

  a3:= (a mod 100) div 10;  {Находим 3 цифру, для этого сначала берем остаток от деления этого числа на 100, а потом делим результат на 10 без остатка (5479 / 100 = 54,79; берем остаток и получается 79; 79 / 10 = 7,9 ; отбрасываем остаток и получается 7)}

  a4:= a mod 10;  {Для нахождения 4 цифры берем остаток от деления этого числа на 10 (5479 / 10 = 547,9 ; берем остаток и получается 9)}

  writeln('Сумма цифр числа ', a, ' равна:  ', a1 + a2 + a3 + a4);  {Выводим сумму цифр}

end.

Если все правильно, отметь решение как лучшее)