Вариант 3 система счисления – ДВОИЧНАЯ 1) Переведите число 81 из десятичной в ДВОИЧНУЮ 2) Переведите число 653 из десятичной в ДВОИЧНУЮ 3) Переведите число 1001010 из ДВОИЧНОЙ в десятичную 4) Переведите число 1001000101 из ДВОИЧНОЙ в десятичную система счисления – ВОСЬМЕРИЧНАЯ 1) Переведите число 44 из десятичной в ВОСЬМЕРИЧНУЮ 2) Переведите число 804 из десятичной в ВОСЬМЕРИЧНУЮ 3) Переведите число 17 из ВОСЬМЕРИЧНОЙ в десятичную 4) Переведите число 1432 из ВОСЬМЕРИЧНОЙ в десятичную
система счисления – ШЕСТНАДЦАТЕРИЧНАЯ 1) Переведите число 91 из десятичной в ШЕСТНАДЦАТЕРИЧНУЮ 2) Переведите число 946 из десятичной в ШЕСТНАДЦАТЕРИЧНУЮ 3) Переведите число 21 из ШЕСТНАДЦАТЕРИЧНОЙ в десятичную 4) Переведите число 34F из ШЕСТНАДЦАТЕРИЧНОЙ в десятичную
.
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
Chislo, Count, Summa, n: integer;
begin
Summa := 0;
Count := 0;
readln(Chislo);
while Chislo > 0 do
begin
n := Chislo mod 10;
if odd(n) then
begin
Summa := Summa + n;
inc(Count);
end;
Chislo := Chislo div 10;
end;
writeln('Сумма нечетных цифр числа: ', Summa);
writeln('Кол-во нечетных цифр числа: ', Count);
writeln('Среднее арифметическое нечетных цифр: ', Summa / Count);
end.
Объяснение:
uses crt;
var a,b:real;
Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a<0) and (b<0)
then
Begin
a:=a+2;
b:=b+2;
writeln('a = ',a);
writeln('b = ',b);
end
else
if (a>0) and (b<0)
then
writeln('a*b = ',a*b)
else
if (a<0) and (b>0)
then
writeln('b-a = ', b-a)
else writeln('Ни одно условие не выполняется');
readln;
end.