Вычислите и выведите на экран примерное число прожитых человеком дней (без учѐта високосных лет) , если в году 365 дней, а год рождения и текущий год запрашиваются у пользователя вашей программы. паскаль.

Program zadanie; var a,b: integer; begin  writeln('введите год рождения');   read(a);   writeln('введите текущий год');   readln(b);   if b> a then begin a: =(b-a)*365; writeln('примерное число прожитых дней=',a); end else if a> b then writeln('не правильно указаны год рождения и текущий год')  else begin a: =a*365;   writeln('примерное число прожитых дней=',a); end; end.

1) 85.710=1010101.1011^2

целая часть от деления остаток от деления

85 div 2 = 42 85 mod 2 = 1

42 div 2 = 21 42 mod 2 = 0

21 div 2 = 10 21 mod 2 = 1

10 div 2 = 5 10 mod 2 = 0

5 div 2 = 2 5 mod 2 = 1

2 div 2 = 1 2 mod 2 = 0

1 div 2 = 0 1 mod 2 = 1

остаток от деления записываем в обратном порядке. получаем целую часть числа в 2-ой системе счисления: 1010101

85 = 1010101^2

для перевода дробной части числа последовательно умножаем дробную часть на основание 2. в результате каждый раз записываем целую часть произведения.

0.71*2 = 1.42

(целая часть 1)

0.42*2 = 0.84

(целая часть 0)

0.84*2 = 1.68

(целая часть 1)

0.68*2 = 1.36

(целая часть 1)

1011

получаем число в 2-ой системе счисления: 1011

0.71 = 0.1011^2

в итоге получаем число: 1010101.1011^2

ответ: 85.710=1010101.1011^2

2) 0.000111=0.07^8

разделим исходный код целой части числа на группы по 3 разряда.

0^2 = 000^2

затем заменяем каждую группу на код из таблицы.

двоичная сс восьмеричная сс

000 0

001 1

010 2

011 3

100 4

101 5

110 6

111 7

получаем число:

000^2 = 0^8

переводим дробную часть числа. для этого разделим исходный код на группы по 3 разряда.

0001112 = 000 111^2

затем заменяем каждую группу на код из таблицы.

получаем число:

000 111 2 = 07^8

в итоге получаем число: 0.07^8

ответ: 0.000111=0.07^8

3) 309.880=0465.70243656^8

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

целая часть от деления остаток от деления

309 div 8 = 38 309 mod 8 = 5

38 div 8 = 4 38 mod 8 = 6

4 div 8 = 0 4 mod 8 = 4

0 div 8 = 0 0 mod 8 = 0

остаток от деления записываем в обратном порядке. получаем целую часть числа в 8-ой системе счисления: 0465

309 = 04658

для перевода дробной части числа последовательно умножаем дробную часть на основание 8. в результате каждый раз записываем целую часть произведения.

0.88*8 = 7.04

(целая часть 7)

0.04*8 = 0.32

(целая часть 0)

0.32*8 = 2.56

(целая часть 2)

0.56*8 = 4.48

(целая часть 4)

0.48*8 = 3.84

(целая часть 3)

0.84*8 = 6.72

(целая часть 6)

0.72*8 = 5.76

(целая часть 5)

0.76*8 = 6.08

(целая часть 6)

70243656

получаем число в 8-ой системе счисления: 70243656

0.88 = 0.70243656^8

в итоге получаем число: 0465.70243656^8

ответ: 309.880=0465.70243656^8

4) 0.101110=0.b8^16

разделим исходный код целой части числа на группы по 4 разряда.

0^2 = ^2

затем заменяем каждую группу на код из таблицы.

двоичная сс шестнадцатеричная сс

0

0001 1

0010 2

0011 3

0100 4

0101 5

0110 6

0111 7

1000 8

1001 9

1010 a

1011 b

1100 c

1101 d

1110 e

f

получаем число:

^2 = 0^16

переводим дробную часть числа. для этого разделим исходный код на группы по 4 разряда.

101110^2 = 1011 1000^2

затем заменяем каждую группу на код из таблицы.

получаем число:

1011 1000^2 = b8^16

в итоге получаем число: 0.b8^16

ответ: 0.101110=0.b8^16

5) 52.910=

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

целая часть от деления остаток от деления

52 div 16 = 3 52 mod 16 = 4

3 div 16 = 0 3 mod 16 = 3

0 div 16 = 0 0 mod 16 = 0

остаток от деления записываем в обратном порядке. получаем целую часть числа в 16-ой системе счисления: 034

52 = 034^16

для перевода дробной части числа последовательно умножаем дробную часть на основание 16. в результате каждый раз записываем целую часть произведения.

0.91*16 = 14.56

(целая часть 14)

0.56*16 = 8.96

(целая часть 8)

0.96*16 = 15.36

(целая часть 15)

0.36*16 = 5.76

(целая часть 5)

0.76*16 = 12.16

(целая часть 12)

0.16*16 = 2.56

(целая часть 2)

0.56*16 = 8.96

(целая часть 8)

0.96*16 = 15.36

(целая часть 15)

e8f5c28f

получаем число в 16-ой системе счисления: e8f5c28f

0.91 = 0.e8f5c28f16

в итоге получаем число: 034.e8f5c28f^16

ответ: 52.910=034.e8f5c28f^16

т.к уточнений нет, то написал на pascal самым простеньким методом.

проверьте всё ли тут, что требуется.

var

  a,b,c,d,f,g: integer;

begin

  writeln('входные данные');

  readln(a,b,c);

  if (a

    d: =a;

  if (b

    d: =b;  

  if (c

    d: =c;

  if (a> b) and (a> c) then

    g: =a;

  if (b> c) and (b> a) then

    g: =b;

  if (c> b) and (c> a) then

    g: =c;

  if (a> d) and (a

    f: =a;

  if (b> d) and (b

    f: =b;

  if (c> d) and (c

    f: =c;

  writeln('результат работы');    

  writeln(d+' '+f+' '+g);        

end.