Это реализовано с помощью цикла for:
Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
Это реализовано с помощью цикла while:
Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
i:=i+1;
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.
Это реализовано с помощью цикла repeat:
Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat
Begin
i:=i+1;
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
until i=2;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
1. Сообщение о том, что выбран 1 из 4 равновозможных вариантов содержит log2(4) = 2 бита информации (2^2 = 4).
2. Всего символов 150 * 40 * 60 = 360 000.
Если считать, что каждый символ кодируется одним байтом, получится 360 000 байт = 351,6 Кбайт (1 Кбайт = 1024 байт)
3. На каждый символ отводится log2(64) = 6 бит, а объём документа 0,75 Кбайт = 0,75 * 1 024 байт = 0,75 * 8 * 1 024 бит = 6 144 бит.
Поэтому общее количество символов 6 144 / 6 = 1024.
На одну страницу приходится 1024 / 32 = 32 символа.
начало->вводим сумму номеров проч. стр. (S)-> с=0, y=0 -> 1) c=c+1, y=y+c -> y=S ?
Нет то повторяем все начиная с п.1
Да выводим с -> конец
Примерно так. Если не очень понятно, извиняйте.
Сначала разобьем число надвое получим 13 и 11, т.к. числа записываются в порядке убывания, то не имеет значение какое число вычислять сначала итак:
разбиваем числа 13 и 11 на составляющие
4+9=13 5+6=11
5+8=13 4+7=11
6+7=13 3+8=11
2+9=11
Принципиально важно, чтоы наименьшие возможные числа располагались по наивысшим разрядам, значит число получится таким: 2949
Ответ:2949
101011110
из двоичной в десятичную: 350
536
из восьмеричной в десятичную: 350
15Е
из шестнадцатеричной в десятичную: 350
