Один человек имел 102 монеты. он поровну разделил их между двумя своими сыновьями. каждому досталось по 12 монет и одна осталась лишней. какая система счисления использовалась? укажите количество монет в десятичной системе.

1х(2 степень)+0х+2=1х+2+1х+2+1;

х(2 степень)-2х-3=0.

Найдя корни уравнения получаем х=3 и трехричную систему счисления

102(3)=1*3(2 степень)+0*3(1 степень)+2*3(0 степень)=9+2=11 монет

1х(2 степень)+0х+2=1х+2+1х+2+1;

х(2 степень)-2х-3=0.

Найдя корни уравнения получаем х=3 и трехричную систему счисления

102(3)=1*3(2 степень)+0*3(1 степень)+2*3(0 степень)=9+2=11 монет

(надеюсь правильно)

В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.

var
  n,s,t,i:integer;
begin
  Write('Укажите количество данных: ');
  Read(n);
  Writeln('Теперь вводите данные');
  s:=0;
  for i:=1 to n do
    begin
    Read(t);
    s:=s+t
    end;
  Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.

Пример решения

Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4

PROGRAM MatrixMax
var a : array [1..3, 1..4] of integer
b : array [1..3] of integer
Max, i, j : integer
BEGIN
crt;
for i:=1 to 3 do 
begin
for j:=1 to 4 do
begin
read (a[i, j]); // вводим элементы в массив a[1..3, 1..4]
end;
writeln; // делаем пустой перевод строки
end;
for i:=1 to 3 do 
begin
b[i] := a[i, 1];
for j:=1 to 4 do
begin
if a[i, j] > b[i] then b[i] := a[i, j];
// находим максимальный элемент в каждой строке и записываем в b[1..3]
end;
end;
Max := b[1];
for i:=1 to 3 do if b[i] > Max then Max := b[i];
// Находим максимальный элемент из максимальных элементов
writeln (Max); // Выводим его на экран
END.