1. ответьте на вопросы. 1) какое минимальное основание может иметь система счисления, если в ней записано число 521? 2) какое минимальное основание может иметь система счисления, если в ней записано число 999? 3) во сколько раз увеличится число 1011,1116 при переносе запятой на один знак вправо? и решения

program xxx;   var i, n, max : integer;         s : real;         a : array [1..20] of integer; begin  write ('введите n= ');   readln(n);   for i: =1 to n do      readln (a[i]);   max: = a[1];   for i: =1 to n do      if a[i] > max then max : = a[i];   s: = sqrt(max);   write ('корень из наибольшего эл-та =', s)end.

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.