Получив на вход натуральное число x, этот алгоритм печатает два числа: a и b. Укажите наименьшее натуральное число, при вводе которого алгоритм печатает сначала 4, а потом –5. var x, a, b: longint;
begin
readln(x);
a := 0; b := 1;
while x > 0 do begin
if x mod 2 > 0 then
a := a + x mod 9
else
b := b * (x mod 9);
x := x div 9;
end;
writeln(a);
write(b);
end.
C решением любым , пожалуйста
begin
readln(x);
a := 0; b := 1;
while x > 0 do begin
if x mod 2 > 0 then
a := a + x mod 9
else
b := b * (x mod 9);
x := x div 9;
end;
writeln(a);
write(b);
end.
C решением любым , пожалуйста