627
Объяснение:
Для нахождения x немного изменим код программы - добавим цикл с условием
var
x,a,b,n: longint;
begin
n:=0;
while (a<>5) or (b<>9) do begin
a:=0; b:=0; x:=n;
while x>0 do begin
if x mod 2=0 then
a:=a+x mod 3
else
b:=b+x mod 5;
x:= x div 3
end;
inc(n);
//writeln(n,' ',a,' ', b); // вывод пошагового решения, если надо
writeln(n);
end.
627
Объяснение:
Для нахождения x немного изменим код программы - добавим цикл с условием
var
x,a,b,n: longint;
begin
n:=0;
while (a<>5) or (b<>9) do begin
a:=0; b:=0; x:=n;
while x>0 do begin
if x mod 2=0 then
a:=a+x mod 3
else
b:=b+x mod 5;
x:= x div 3
end;
inc(n);
//writeln(n,' ',a,' ', b); // вывод пошагового решения, если надо
end;
writeln(n);
end.