Свойство информации отражающее истинное положение дел это достоверность
2675,713₈
- 204,551₈
----------------
2471,142₈
Подробности. Вычитание производим "в столбик", начиная с самого правого разряда. Если в разряде уменьшаемое не меньше вычитаемого, выполняем вычитание в привычной десятичной системе. 3₈ - 1₈ = 2₈
Теперь переходим в соседний разряд. Тут уменьшаемое меньше вычитаемого, поэтому нужно "занять" единичку в старшем разряде. В десятичной системе эта единичка превращается в 10, а в восьмеричной - в восемь. 1₈ - 5₈ превратится в (1+8) - 5 = 4₈. Т.е. мы прибавляем к уменьшаемому эти 8, а дальше все считаем снова, как в привычной десятичной системе. 7₈ - 5₈ после "занятия" единицы превратится в
6₈ - 5₈ = 1₈ - тут все, как в делали в самом младшем разряде.
Остальная часть решения трудностей не представляет.
Ответ: 2471,142₈
Var
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно
const
nn = 100; // максимальное число элементов
var
a: array[1..nn] of integer;
i, n: integer;
p: real;
begin
write('n = ');
read(n);
writeln('введите элементы массива');
p := 1;
for i := 1 to n do
begin
read(a[i]);
if (i mod 2 = 0) and (a[i] mod 2 <> 0) then
p := p * a[i];
end;
writeln('П = ', p);
end.
1. 1) прямоугольник
2) прямоугольник
3) паралелограмм
2. 1) трапеция
2) круг
3) большой круг
3. 1) прямоугольник
2) трапеция
3) квадрат