Судя по оценке "10", что, вероятно, равна 5, мы имеем дело с пятеричной системой счисления.
Текст с числами в десятичной системе:
«Я, Михаил Кузнецов,
родился 27 августа 1952 года.
После моего рождения – 10 ребенка в семье –
маму наградили орденом «Мать-героиня».
Но я, конечно, понимаю, что это обстоятельство
не дает мне права задирать нос перед своими
старшими 9 братьями и сестрами.
Как и все дети, 7 лет начал учиться в школе.
Учусь хорошо: почти всегда получаю балл «5».
С нетерпением ожидал момента вступления в пионеры.
Наконец, это свершилось: 10 лет я стал членом
Всесоюзной пионерской организации имени В.И. Ленина»
Попробуем представить себе что у нас есть ЧЕТЫРЕ кнопки.
1. Изменить текущий размер шрифта
2. Полужирный шрифт
3. Курсив
4. Подчеркивание.
Каждая кнопка имеет два состояния.
Представим себе четыре бита (1,2,3,4), которые хранят информацию о выборе кнопки (т.е. 1 или 0 - нажали или нет).
Тогда у нас возможные комбинации кодов будут от 0000 до 1111.
Как известно, 4 бита могут хранить 2⁴ = <u>16 комбинаций</u><u>.</u>
Если же каждую букву набирать своим стилем, количество будет существенно больше. Тогда у нас будет 5 букв, каждая из которых имеет 16 видов своего отображения. И всего 16 в пятой степени комбинаций, т.е. <u>1048576</u>
<span>Человеком созданы специальные технические устройства, предназначенные для кодирования, обработки, хранения и передачи информации в цифровой форме (компьютер, принтер, сканер, модем и другое.). совокупность таких устройств принято называть аппаратными средствами информатизации.</span>
program p1;
uses Crt;
var
i, n, m, min: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(min);
for i := 2 to n do
begin
Read(m);
if m < min then
min := m;
end;
Writeln(min);
ReadKey;
end.
******************************************
program p2;
uses Crt;
var
i, n, m, max, k: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(max);
k := 1;
for i := 2 to n do
begin
Read(m);
if m > max then
begin
max := m;
k := 1;
end
else if m = max then
k := k + 1;
end;
Writeln(k);
ReadKey;
end.
Сайт это сборник от 2-ух и более веб страниц принадлежащие одному и томуже владельцу.