1.2A2(16) =001010100010=1248(8)
2A2(16) = 2·16^0 + 10·16^1 + 2·16^2 = 674(10)
2. 186(16) =000110000110=606(8)
186(16) = 6·16^0 + 8·16^1 + 1·16^2 = 390(10)
3. BB(16) = 010111011=273(8)
BB(16) = 11·16^0 + 11·16^1 = 187(10)
1. 74(8) =00111100=3C(16)
74(8) = 4·8^0 + 7·8^1 = 60(10)
2. 165(8) = 001110101=75(16)
165(8) = 5·8^0 + 6·8^1 + 1·8^2 = 117(10)
3. 302(8) = 001100000010=1402(16)
302(8) = 2·8^0 + 0·8^1 + 3·8^2 = 194(10)
1.Делим число на 8 и выписываем остатки
98544 = 12318·8 + 0
12318 = 1539·8 + 6
1539 = 192·8 + 3
192 = 24·8 + 0
24 = 3·8 + 0
var S, V, V1: real;
t1, t2: real;
b: boolean;
begin
b:=false;
repeat
writeln('Введите расстояние между пунктами А и Б');
readln(S);
if S<0 then
begin
writeln('Отрицательное расстояние. Повторите ввод');
continue;
end;
writeln('Введите среднюю скорость самолета');
readln(V);
if V<0 then
begin
writeln('Отрицательная скорость. Повторите ввод');
continue;
end;
writeln('Введите скорость встречного ветра');
readln(V1);//Если ветра нет нужно ввести 0
if V1<0 then
begin
writeln('Отрицательная скорость. Повторите ввод');
continue;
end;
b:=true;
until b = true;
if V1>0
then
begin
t2:=S/V;
writeln('Время полета: ', t2);
end
else
begin
t1:=(V-V1)/S;
writeln('Время полета: ', t1);
end;
end.
