М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mozhnj
mozhnj
24.05.2022 02:41 •  Информатика

Переведите 154(5) в семеричную систему счисления

👇
Ответ:
jak15
jak15
24.05.2022
154(6) в семеричную

Вначале нужно перевести в десятичную, а уже оттуда в семеричную.

154 = 4*6^0 + 5*6^1 + 1*6^2 = 4+30+36=70 - это десятичная

70/7=10(0)
10/7=1(3)

Записываем снизу-вверх: 130

ответ: 130
4,8(71 оценок)
Открыть все ответы
Ответ:
Var
    a: array[0..10] of integer;
    i, n, k: integer;
//    b: array[1..4, 1..4] of integer;

begin
    Println();
    Println(1);
    for i := 0 to 10 do
        A[i] := i + 1;
    PrintLn(a);
    Println();
    for i := 1 to 10 do
    begin
        A[i] := A[i - 1];
        PrintLn(a);
    end;
    
    Println();
    Println(2);
    for i := 0 to 10 do
        A[i] := i + 1;
    PrintLn(a);
    Println();
    for i := 10 downto 0 do
    begin
        A[i] := A[10 - i];
        PrintLn(a);
    end;
end.

Тут вывод трасировок последних циклов

1
[1,2,3,4,5,6,7,8,9,10,11]

[1,1,3,4,5,6,7,8,9,10,11]
[1,1,1,4,5,6,7,8,9,10,11]
[1,1,1,1,5,6,7,8,9,10,11]
[1,1,1,1,1,6,7,8,9,10,11]
[1,1,1,1,1,1,7,8,9,10,11]
[1,1,1,1,1,1,1,8,9,10,11]
[1,1,1,1,1,1,1,1,9,10,11]
[1,1,1,1,1,1,1,1,1,10,11]
[1,1,1,1,1,1,1,1,1,1,11]
[1,1,1,1,1,1,1,1,1,1,1]

2
[1,2,3,4,5,6,7,8,9,10,11]

[1,2,3,4,5,6,7,8,9,10,1]
[1,2,3,4,5,6,7,8,9,2,1]
[1,2,3,4,5,6,7,8,3,2,1]
[1,2,3,4,5,6,7,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
[1,2,3,4,5,6,5,4,3,2,1]
4,5(45 оценок)
Ответ:
marinacccr
marinacccr
24.05.2022
Var A,k:integer;
Begin
k:=0;
Repeat
ReadLn(A);
if (A<0)and(A mod 7 = 0) then k:=k+1;
Until A=0;
WriteLn('k = ',k);
End.

Если имеется ввиду, когда кол-во километров, пройденных за день превысит K, то вот:

Var
A,K,n:real;
Begin
Write('K = ');
ReadLn(K);
A:=10;
n:=0;
Repeat
n:=n+1;
A:=A*1.1
Until A>K;
WriteLn(n)
End.

Если имеется ввиду, когда суммарное количество пройденных километров превысит K, то вот:

Var A,K,n,S:real;
Begin
Write('K = ');ReadLn(K);
A:=10;
n:=0;
S:=A;
Repeat
n:=n+1;
A:=A*1.1;
S:=S+A;
Until S>K;
WriteLn(n)
End.
4,4(18 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ