Размещено 6 лет назад по предмету
Информатика
от tushkovleha2
Укажите наименьшее из таких чисел x, при вводе которого алгоритм печатает сначала 3, а потом 4.
var x, a, b: integer;
begin
readln(x);
a:=0; b:=0;
while x>0 do
begin
a:=a + 1;
if b < (x mod 8)
then b:=x mod 8;
x:=x div 8;
end;
writeln(a); write(b);
end.