Var min, max, x: byte;
begin
max=0;
min:=100;
for x:= 10 to 99 do begin
if (x mod 10)+(x div 10)=7 then begin
writeln (x);
if x>max then max:=x;
if x
3, 14₁₀=3*10⁰+1*10⁻¹+4*10⁻²
<span>10,1₂=1*2¹+0*2⁰+1*2⁻¹
У меня похожее было...
Удачки...!</span>
L=2 - количество цифр в числе Х
М=10 - (последняя цифра числа Х)*2---->
(последняя цифра числа Х)=10:2=5
мах Х=95 ответ 95