Нужно чтоб for сам перебирал все значения, чтобы получилось сначала 25 потом 3 var x, L, M, i: longint;
begin
L := 0; M := 1; ; i:=1;
for x:= i to 1100 do begin
L := L+ 1;
if x mod 2 <> 0 then
M := M * (x mod 8);
x := x div 8;
end;
writeln(M); write(L);
end.

missmarial2010    2   04.03.2022 04:00    0