Укажите меньшее из таких чисел x, при вводе которого метод печатает
Укажите меньшее из таких чисел x, при вводе которого метод печатает поначалу 3, а позже 4.
var x, a, b: integer;
begin
readln(x);
a:=0; b:=0;
while xgt;0 do
begin
a:=a + 1;
if b lt; (x mod 8)
then b:=x mod 8;
x:=x div 8;
end;
writeln(a); write(b);
end.
При x = 68;
Как инспектировал:
var
x, a, b, i: integer;
begin
for i := 1 to 1000 do
begin
x := i;
a := 0;
b := 0;
while x gt; 0 do
begin
a := a + 1;
if b lt; (x mod 8)
then b := x mod 8;
x := x div 8;
end;
if (a = 3) and (b = 4) Then
begin
writeln(i);
break;
end;
end;
end.
Взял 1000 поэтому что думал, что обязано быть меньше. Если бы программка не сработала взял бы или отрицательные числа, либо больше тыщи (вероятно бы пришлось поменять тип данных).
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.