Тема:Система Счисления 1. Найдите минимальное основание системы счисления, если в ней записаны следующие числа: 10, 12, 1210, 102

2. Какое число идёт после 10100112

3. Переведите число 245 в двоичную систему счисления

4. Переведите число 11100012 в десятичную систему счисления

5. В корзине 1111002 яблок и 11002 груш. Сколько фруктов в корзине. ответ дайте в десятичной системе счисления

С РЕШЕНИЕМ ВАЖНОО

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var n:=ReadInteger('Введите четырехзначное число');
  Writeln('В числе');
  Writeln(n div 1000,' - тысяч');
  Writeln((n div 100) mod 10,' - сотен');
  Writeln((n mod 100) div 10,' - десятков');
  Writeln(n mod 10,' - единиц')
end.

Тестовое решение:
Введите четырехзначное число 4072
В числе
4 - тысяч
0 - сотен
7 - десятков
2 - единиц

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var n:=ReadInteger('Введите трехзначное число');
  var s:=n div 100;
  var d:=(n div 10) mod 10;
  var e:=n mod 10;
  Writeln('Sum=',s+d+e);
  Writeln(e,d,s);
  Writeln('В числе');
  Writeln(e,' - сотен');
  Writeln(d,' - десятков');
  Writeln(s,' - единиц')
end.

Тестовое решение:
Введите трехзначное число 492
Sum=15
294
В числе
2 - сотен
9 - десятков
4 - единиц

Объяснение:

Из задания не совсем ясно, необходимо ли в программе производить ввод массиве, если нет, то решение следующее:

# Максимальный элемент массива

_max = max(d)

# Порядковый номер элемента

_index = d.index(_max)

# Вывод

print(_max, _index)

Если запрещено использовать встроенные функции, то:

# первый элемент - максимальный

_max = d[0]

_index = 0

# Цикл по всем элементам

for i, x in enumerate(d):

# Если элемент больше максимального

if x > _max:

_max = x

_index = i

# Вывод

print(_max, _index)

Если необходимо произвести и ввод, то в начале задачи надо дописать:

n = input('Введите n: ')

d = []

for x in range(n):

d.append(input('Введите число: '))