Program gt;
var a:array[1..1000]of integer;
n,i:integer;
begin
read(N);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
write(a[i],' ');
if( i mod 4=0)then writeln;
end;
end.
в первом случае 5, во втором 8.
Раз в числе в системе счисления с основанием 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)
Var a,b,c:real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if (a<=3) and (a>=-1) then writeln(a, ' принадлежит промежутку [-1,3]');
if (b<=3) and (b>=-1) then writeln(b, ' принадлежит промежутку [-1,3]');
if (c<=3) and (c>=-1) then writeln(c, ' принадлежит промежутку [-1,3]');
end.
b:=7+(2143 div 100)*10=7+(21*10)=7+210=217;
a:=(10*217-2143) mod 10=(2170-2143) mod 10=27 mod 10=7
Ответ: a:=7; b:=217