Вычислить информационный объём текста книги в кбайтах. если известно, что в книге 40 страниц, на каждой странице 16 строк по 16 символов, используется 8-битная кодировка. !
а — для осуществления хранения, поиска и сортировки данных.
б — реляционные и иерархические (древовидная).
в — простота использования и возможность использования формального аппарата математики для обработки.
г — запись в таком виде представляет собой значение поля, соответствующее заранее определенному признаку, названию, типу в таблице.
д — поле — ячейка для хранения переменной, тип поля — предполагаемое математическое выражение, служащее для описания возможного значения поля, бывают различные типы полей: строка, массив байт, целое число, дробное число и т.д.
е — ключ — идентификатор строки, служащий для однозначного сопоставления с другими сроками в других таблицах, иногда является индексом сортировки. Также ключ сохраняет целостность структуры данных.
а — для осуществления хранения, поиска и сортировки данных.
б — реляционные и иерархические (древовидная).
в — простота использования и возможность использования формального аппарата математики для обработки.
г — запись в таком виде представляет собой значение поля, соответствующее заранее определенному признаку, названию, типу в таблице.
д — поле — ячейка для хранения переменной, тип поля — предполагаемое математическое выражение, служащее для описания возможного значения поля, бывают различные типы полей: строка, массив байт, целое число, дробное число и т.д.
е — ключ — идентификатор строки, служащий для однозначного сопоставления с другими сроками в других таблицах, иногда является индексом сортировки. Также ключ сохраняет целостность структуры данных.
Объяснение:
Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Подробнее - на -