Для перевода двоичного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания двоичной системы счисления на соответствующие цифры в разрядах двоичного числа. Например, требуется перевести двоичное число 10110110 в десятичное. В этом числе 8 цифр и 8 разрядов ( разряды считаются, начиная с нулевого, которому соответствует младший бит). В соответствии с уже известным нам правилом представим его в виде суммы степеней с основанием 2: 101101102 = (1·27)+(0·26)+(1·25)+(1·24)+(0·23)+(1·22)+(1·21)+(0·20) = 128+32+16+4+2 = 18210 Сам попробуй
Program zadanie_1; Var a,b:integer; Begin Writeln('Введите текущий год'); Readln(a); Writeln('Введите год рождения'); Writeln('Примечание:Значение текущего года не должно быть меньше значения года рождения, иначе программа не будет исполняться'); Readln(b); If a>b Then Writeln('Количество прожитых лет=',a-b) Else Writeln('Количество прожитых лет=',a); End.
Program zadanie_2; Var a,b,s:real; Begin Writeln('Введите два любых числа'); Readln(a,b); s:=a+b; If b<0 Then Writeln(a,'+','(',b),')','=',s) else Writeln(a,'+',b,'=',s); End.
Например, требуется перевести двоичное число 10110110 в десятичное. В этом числе 8 цифр и 8 разрядов ( разряды считаются, начиная с нулевого, которому соответствует младший бит). В соответствии с уже известным нам правилом представим его в виде суммы степеней с основанием 2:
101101102 = (1·27)+(0·26)+(1·25)+(1·24)+(0·23)+(1·22)+(1·21)+(0·20) = 128+32+16+4+2 = 18210 Сам попробуй
Var a,b:integer;
Begin
Writeln('Введите текущий год');
Readln(a);
Writeln('Введите год рождения');
Writeln('Примечание:Значение текущего года не должно быть меньше значения года рождения, иначе программа не будет исполняться');
Readln(b);
If a>b Then Writeln('Количество прожитых лет=',a-b)
Else Writeln('Количество прожитых лет=',a);
End.
Program zadanie_2;
Var a,b,s:real;
Begin
Writeln('Введите два любых числа');
Readln(a,b);
s:=a+b;
If b<0 Then Writeln(a,'+','(',b),')','=',s) else Writeln(a,'+',b,'=',s);
End.