Var s:string; i,k:integer;
Begin
readln(s);
i:=1;
while (s[i]<>'.')and(i<>length(s)) do
i:=i+1;
delete(s,1,i);
k:=0;
for i:=1 to length(s) do
if s[i]<>'0' then k:=1;
if k=0 then writeln('Число целое')
else writeln('Число дробное');
End.
Раз в числе в системе счисления с основанием 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)
Е обозначает число 10
68,38456
150,56
Определение импликации:
A → B == ~A + B
~(A + ~B) + (B * C * D) = 1
По закону де Моргана:
(~A * B) + (B * C * D) = 1
Группируем:
B * (~A + C * D) = 1
Можем записать решения:
A B C D
0 1 0 0
0 1 0 1
0 1 1 0
0 1 0 1
1 1 1 1