Умник00Семь
06.07.2020 17:05

1. значение цифры не зависит от ее положения в числе в:
1) позиционных системах счисления
2) непозиционных системах счисления
2. десятичная система счисления –
1) позиционная
2) непозиционная
3. число, записанное в римской системе счисления dcx, равно:
1) 610
2) 510
3) 590
4) 410
4. число, записанное в римской системе счисления cdx, равно:
1) 610
2) 510
3) 590
4) 410
5. выбрать правильную запись числа 21310 в развернутой форме:
1) 2∙102+1∙101+3∙100
2) 3∙102+1∙101+2∙100
3) 2∙103+1∙102+3∙101
4) 2∙22+1∙21+3∙20
6. перевести число 1100012 в десятичную систему счисления:
1) 49
2) 50
3) 25
3) 51
7. перевести число 101,12 в десятичную систему счисления:
1) 5,5
2) 5,2
3) 6,5
4) 6,2
8. перевести число 3810 в двоичную систему счисления:
1) 100110
2) 110110
3) 011001
4) 00110
9. перевести число 1328 в десятичную систему счисления:
1) 80
2) 90
3) 45
4) 19
10. перевести число 10111012 в восьмеричную систему счисления:
1) 140
2) 531
3) 135
4) 26
11. перевести число cd16 в десятичную систему счисления:
1) 502
2) 65
3) 520
4) 205
12. перевести число 2310 в 16-ричную систему счисления:
1) 7
2) 13
3) 54
4) 17
13. перевести число 1101112 в 16-ричную систему счисления:
1) 23
2) 45
3) 37
4) 54
14. перевести число 3c16 в восьмеричную систему счисления:
1) 25
2) 47
3) 71
4) 74
15. перевести число 378 в десятичную систему счисления:
1) 52
2) 13
3) 31
4) 12

16. перевести число 138 в 16-ричную систему счисления:
1) d
2) a
3) c
4) b

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
варкатоп
01.11.2020 00:05
//PascalABC.NET 3.2 сборка 1318

//Вариант по формуле Бине

Var
  n,fibn:real;
  i:integer;
begin
readln(n);
if n<=0 then writeln('Не существует чисел Фиббоначи меньше 0')
else
  begin
  i:=0;
    while fibn<n do
      begin
        fibn:=(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5);
        inc(i);
      end;
   writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1);
     end;
 end.

//В лоб

Var
  sum,n,buf,fib0,fib1:integer;
 
 function fibb(fib0,fib1:integer):integer;
  begin
    result:=fib0+fib1;
  end;

begin
fib0:=0;
fib1:=1;
readln(n);
if n<=0 then
   writeln('Не существует чисел Фиббоначи меньше 0')
else
  begin
    if fibb(fib0,fib1)>=n then sum:=0 else
    begin
      while fibb(fib0,fib1)<n do
        begin
         buf:=fib1;
         fib1:=fibb(fib0,fib1);
         fib0:=buf;
        end;
      sum:=fibb(fib1,fibb(fib0,fib1))-1;
   end;
   writeln(sum);
  end;
end.

Пример ввода:
12
Пример вывода:
20
0,0(0 оценок)
Ответ:
alinabugajcuk38
01.11.2020 00:05
//PascalABC.NET 3.2 сборка 1318

//Вариант по формуле Бине

Var
  n,fibn:real;
  i:integer;
begin
readln(n);
if n<=0 then writeln('Не существует чисел Фиббоначи меньше 0')
else
  begin
  i:=0;
    while fibn<n do
      begin
        fibn:=(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5);
        inc(i);
      end;
   writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1);
     end;
 end.

//В лоб

Var
  sum,n,buf,fib0,fib1:integer;
 
 function fibb(fib0,fib1:integer):integer;
  begin
    result:=fib0+fib1;
  end;

begin
fib0:=0;
fib1:=1;
readln(n);
if n<=0 then
   writeln('Не существует чисел Фиббоначи меньше 0')
else
  begin
    if fibb(fib0,fib1)>=n then sum:=0 else
    begin
      while fibb(fib0,fib1)<n do
        begin
         buf:=fib1;
         fib1:=fibb(fib0,fib1);
         fib0:=buf;
        end;
      sum:=fibb(fib1,fibb(fib0,fib1))-1;
   end;
   writeln(sum);
  end;
end.

Пример ввода:
12
Пример вывода:
20
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота