Раз в числе в системе счисления с основанием N 4 цифры, значит должно выполняться следующее условие: (N-1)^4 < 86 < N^4
Возводя в 4 степень натуральные числа, получаем: 2^4=16, 3^4=81, 4^4=256
Получаем, что 81<86<256. Таким образом, искомое основание системы счисления = 4
86(10)=1112(4)
1112(4)=1*4^3+1*4^2+1*4+2=64+16+4+2=86(10)
Program krab52;
uses crt;
const
n=10;
var
a:array [1..n] of integer;
i,max,min:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
{заполняем массив}
for i:=1 to n do
begin
a[i]:=random(101);
write (a[i]:4);
end;
writeln();
{ищем макс и мин}
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
{выводим результат}
writeln();
writeln(' Максимальный элемент ',max);
writeln(' Минимальный элемент ',min);
writeln(' Размах между максимальным и минимальным элементами ',max-min);
end.
Ключ( ключ от двери и родниковый ключ), кольцо(на палец или дорожное), мир(как вселенная или как отсутствие войны).
Var a,b,c,d,e,f:real;
begin
write ('Введите результаты 1 опроса: ');
readln (a);
write ('Введите результаты 2 опроса: ');
readln (b);
write ('Введите результаты 3 опроса: ');
readln (c);
write ('Введите результаты 4 опроса: ');
readln (d);
write ('Введите результаты 5 опроса: ');
readln (e);
f:=(a+b+c+d+e)/5;
writeln ('Средний балл = ',f);
end.
