Незнаю как тебе объяснить, сам до конца не понял как не целые числа переводить.
12/8 = 1 остаток останется 4
1/8 = 0 остаток останется 1
12 в 10-тичной = 14 в 8-ричной
Теперь переводим дробную часть 12.5 в 10-тичной системе в 8-ую систему:
0.5·8 = 4.0
0.510 = 0.48
как то так.... я не уверен, вроде правильно.
Var t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<25 do
begin
n:=n*2;
writeln(t,n:6);
t:=t+3;
end;
readln;
<span>end.</span>
Var t,v:integer;
begin
readln(t,v);
writeln(v*t);
<span>end.</span>
Автора напиши я так не могу мне надо видеть тетрадь не на фото.
В офисе, какой-то фирмы, работает с бумагами и компьютером