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

НА ЯЗЫКЕ PYTHON Составьте программу, которая принимает на вход в первой строке восьмеричную цифру D -- одну из {0, 1, 2, 3, 4, 5, 6, 7}, во второй строке целое положительное число L и в третьей строке целое неотрицательное число N, записанное в шестнадцатеричной системе. В этой записи используются десятичные цифры и заглавные латинские буквы {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F}. Число L -- это длина шестнадцатеричной записи числа N, и оно не более чем 49152. Программа находит, количество вхождений цифры D в запись числа N, если его перевести в восьмеричную систему. В начале записи числа N могут стоять незначащие нули, которые не следует учитывать при подсчёте количества вхождений D = 0. Незначащим является любой нуль, стоящий левее первой ненулевой цифры, или, если N = 0, то все нули, кроме самого правого.
Формат входных данных
В первой строке содержится символ D — восьмеричная цифра (одна из {0, 1, 2, 3, 4, 5, 6, 7}).
Во второй строке содержится целое положительное число L — длина записи числа N в шестнадцатеричной системе, в которой могут быть незначащие нули (0 < L < 49152).
В третьей строке содержится непустая последовательность символов, являющаяся записью в шестнадцатеричной системе числа N — целого, неотрицательного (в этой записи L символов). В записи числа N используются десятичные цифры и заглавные латинские буквы {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F}.
Формат результата
В первой и единственной строке выводится неотрицательное целое число, равное искомому количеству вхождений цифры D в восьмеричную запись числа N (от 0 до 65535).

👇
Ответ:
elenagorodan
elenagorodan
14.02.2021

d, l, n = input()[0], input(), input()

print(oct(int(n, 16))[2:].count(d))

Объяснение:

4,8(3 оценок)
Открыть все ответы
Ответ:
Vikysay10
Vikysay10
14.02.2021

Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.

1) цикл for

program p_for

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  p := 1;//начальное значение

  for i := 1 to n do  

     p := p * i;

  writeln(p);

end.  

2) цикл while

program p_while

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  while i <= n do  

  begin

     p := p * i;

     i := i + 1;

 end;

 writeln(p);

end.  

3) цикл until

program p_until

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  repeat

     p := p * i;

     i := i + 1;

  until i > n;

  writeln(p);

end.  

Объяснение:

4,7(85 оценок)
Ответ:
ovveall
ovveall
14.02.2021
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=4;
  var xp:=new real[n];
  var yp:=new real[n];
  Writeln('Введите парами координаты четырех вершин');
  for var i:=0 to n-1 do Read(xp[i],yp[i]);
  var (x,y):=ReadReal2('Введите координаты точки:');
  var (i,j,c):=(0,n-1,False);
  while i<n do begin
    if ((yp[i]<=y) and (y<yp[j]) or (yp[j]<=y) and (y<yp [i]))
      and (x<(xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c:=not c;
    j:=i;
    i+=1;
    end;
  if c then Writeln('Внутри')
  else Writeln('Не внутри')
end.

Примеры
Введите парами координаты четырех вершин
 1 4 6 9 9 6 4 1
Введите координаты точки: 1.5 1.6
Не внутри

Введите парами координаты четырех вершин
1 4 6 9 9 6 4 1
Введите координаты точки: 4 7
Внутри
4,8(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ