Получив на вход натуральное число x, этот алгоритм печатает два числа: a и b. Укажите наименьшее натуральное число, при вводе которого алгоритм печатает сначала 3, а потом тоже - 3.

program pr1;
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 7
else
b:=b*(x mod 7);
x:=x div 7;
end;
writeln(a); write(b);
end.

ekaterinabraun5    3   15.04.2020 12:49    1