Вот вставь проверь там напишет при каких значениях
var x, L, M,i,i1: integer;
begin
for i:=0 to 1000 do
begin
i1:=i;
L:=0;
M:=0;
while i1 > 0 do
begin
L:=L+1;
if M < i1 then
begin
M:= (i1 mod 10) * 2;
end;
i1:= i1 div 10;
end;
writeln(L);
write(M);
end;
readln;
end.<span>
</span>
либо C либо D
<span>Решение должно иметь от 20 до 5000 символов</span>
Var
n, min: integer;
begin
readln(n);
min := n div 60;
writeln(min);
<span>end.</span>
2.) 1011010.1 =90.5
3.) 85 =1010101
0.125 =0.001
4.) 1100111.011 =147.3
11100111.011 =E7.6
5.) 143.05 =1100011.000101
1A0.8 =110100000.1