Дано ціле трьохзначне число, яке складається з неоднакових цифр. визначте, яка з його цифр більша: перша чи друга. як правильно написати програму на паскалі?

Var a,b, d: integer; begin read (d); a: =d div 100; b: =d div 10 mod 10; if a> b then write ('перша більша') else write ('друга більша') end.

1) диапазон чисел будет вычисляться по формуле n = 2^n

n = 4, значит n = 2^4 = 2*2*2*2=16

диапазон чисел от 0 до 15

2)

а) 32 переведем в 2 систему счисления

32/2=16 ост.0

16/2=8 ост.0

8/2=4 ост.0

4/2=2 ост.0

2/2=1 ост.0

число 32 = 100000

ответ: в 8 разрядном представлении число 32 записывается 00100000

б) -32

найдем модуль числа -32. он равен 32

двоичная запись числа 32 - 00100000

инвертируем число (заменяем 0 на 1, заменяем 1 на 0)

получится 11011111

добавляем к полученному числу 1

11011111+1=11100000

ответ:   в 8 разрядном представлении число -32 записывается 11100000

в) 102 переведем в двоичную систему счисления

102/2=51 ост.0

51/2=25 ост.1

25/2=12 ост.1

12/2=6 ост.0

6/2=3 ост.0

3/2=1 ост.1

в 2 системе счисления 102=1100110

ответ:   в 8 разрядном представлении число 102 записывается 01100110

г) -102

модуль найдем -102 - это 102

двоичная запись числа 102 - это -01100110

инвертируем полученное число и получаем: 10011001

прибавляем 1.

10011001+1=10011010

ответ: -102 записывается как 10011010

д) 126

126/2=63 ост.0

63/2=31 ост.1

31/2=15 ост1

15/2=7 ост.1

7/2=3 ост.1

3/2=1 ост.1

число 126 записывается 1111110

ответ:   в 8 разрядном представлении число 126 записывается 01111110

е) -126

найдем модуль этого числа 126

в 8 разрядном представлении оно записывается 01111110

инвертируем полученное число и получаем: 10000001

прибавляем 1

10000001+1=10000010

ответ: -126 в 8 разрядном представлении записывается 10000010

3.

а) 00010101=0*2^7+0*2^6+0*2^5+1*2^4+0*2^3+1*2^2+0*2^1+1*2^0=16+4+1=21

б) 11111110 - это число отрицательное, тк 1 цифра = 1

решаем обратно:

вычтем 1

11111110-1=11111101

инвертируем: 00000010

переводим: 00000010 = 2 в 10 системе счисления. (это получился модуль исходного числа)

значит это число -2

в) 00111111 = 1*2^5+1*2^4+1*2^3+1*2^2+1*2^1+1*2^0=32+16+8+4+2+1=63

г) 10101010 - это число отрицательное,тк первая цифра в записи 1

вычтем 1

10101010-1=10101001

инвертируем: 01010110

переводим:

01010110=1*2^6+0*2^5+1*2^4+0*2^3+1*2^2+1*2^1+0*2^0=64+16+4+2=86 (это модуль)

записано число -86

4)

различие заключается в количестве отводимых ячеек памяти под одно вещественное число: для чисел с удвоенной точностью отводят 64 ячейки памяти (для 32 -битного процессора). следовательно, можно записать больше чисел, точность при вычислениях будет больше.

Var   a: array [0..9] of integer;   n, min,max: integer; begin   readln(n);   min: =9;   max: =0;   while (n > 0) do begin       inc(a[n mod 10]);       if n mod 10< min then min: =n mod 10;       if n mod 10> max then max: =n mod 10;           n : = n div 10;   end;   for n : = 0 to 9 do     if a[n] = 3 then writeln('в числе есть 3 одинаковые',n);   writeln('максимальная цифра ',max);   writeln('минимальная  цифра ',min);   end. тест для числа: 222778999 в числе есть 3 одинаковые 2 в числе есть 3 одинаковые 9 максимальная цифра 9 минимальная  цифра 2