Выполнить перевод из одной системы счисления в другую: 1. 5910 в 2-ю 2. 19910 в 16-ю 3. 1010102 в 10-ю выполнить действия: 1. 1011012+101112 2. 1011012*1012 3. 2568+1448 дополнительное * укажите наименьшее основание системы счисления, в которой запись числа 70 трехзначна.

Решается на обычном калькуляторе

1) 1011100010110 (если из десятиричной)
2) 4DC6 (если из десятиричной)
3) 266306 (если из восьмеричной)

1) 1112124
2) 1023144144
3) 4016

Если квадрат натурального числа не превосходит 225, то само это число не может превосходить √225 = 15.
Алгоритм
Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности.
Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.

var
  res,num:integer;
begin
  res:=0;
  repeat
    Read(num);
    if (num>res) and (num<=15) then res:=num
  until num=0;
  Writeln(res)
end.

Если квадрат натурального числа не превосходит 225, то само это число не может превосходить √225 = 15.
Алгоритм
Заносим в переменную res (результат) число 0. Оно заведомо меньше любого из натуральных чисел в последовательности.
Читаем очередное число в последовательности. Если оно больше res и при этом не превышает 15, записываем его в res. Если оно равно нулю, чтение прекращаем и выводим значение res.

var
  res,num:integer;
begin
  res:=0;
  repeat
    Read(num);
    if (num>res) and (num<=15) then res:=num
  until num=0;
  Writeln(res)
end.