function decbin(n: int64): int64;
var k,m: int64;
priz: boolean;
begin
k:=1; m:=0;
priz:=true;
repeat
if (n mod 10)>1 then
begin
writeln('недопустимый ввод - цифра ',n mod 10);
priz:=false;
break;
end;
m:=m+k*(n mod 10);
n:=n div 10;
k:=k*2;
until n=0;
if priz then decbin:=m
else decbin:=-1;
end;
// основная программа
var n,k: int64;
begin
repeat
readln(n);
if n=0 then break
else
begin
k:=decbin(n);
if k>0 then writeln('десятичное число: ',k);
end;
until false;
end.
1011100011210
недопустимый ввод - цифра 2
11101101
десятичное число: 237
11111111
десятичное число: 255
0
Поделитесь своими знаниями, ответьте на вопрос:
ПОСТАВЛЮ МАКСИМАЛЬНЫЙ 262, 406. Числа нужно перевести на двоичную, восьмеричную и 16 ричную систему счисления.
1. Укажіть всі цілі від’ємні числа, що більші за -4,7 .
А) -3,-2,-1; В) -5, -4,-3, -2,-1;
Б) -4,-3,-2,-1,0; Г) -4,-3,-2,-1.
2. Сума двох чисел 25 і одне з них у 5 разів менше за інше. Яка із систем відповідає умові
задачі, якщо менше число позначили через х, а більше – через у?
А) В)
Б) Г)
3.При якому значенні т значення виразу 4-2т дорівнює 7?
А) -1,5; Б) -10; В) 1,5; Г) -5,5.
4. Розв’яжіть рівняння х2 +9х=0
А) 0; Б) -9; В) -9; 0; Г) 0; 9.
5.При якому значенні змінної х дріб не має змісту?
А) 2; Б) -2,4; В) -4; Г) -2.
6. Серед наведених систем укажіть таку, що не має розв’язків
А В)
Б) Г)
7. Чому дорівнює сума та добуток коренів квадратного рівняння х2- 8х +15 = 0;
8.Складіть квадратне рівняння, корені якого дорівнюють 2 - та 2 + .
9.Розв’яжіть систему рівнянь:
10. Розвяжіть рівняння: -у4 -5у2 +36 =0
ІІ рівень
ІІІ рівень
Объяснение: