Получив на вход некоторое натуральное число X, этот алгоритм печатает одно число. Укажите второе (по - id2028706120200925 от rostislav2017 25.09.2020 23:54

Question

Информатика: Получив на вход некоторое натуральное число X, этот алгоритм печатает одно число. Укажите второе (по возрастанию) число Х, для которого алгоритм хоть что-нибудь напечатает. Для решения задачи нужно написать программу, выполняющую перебор. Код ниже (только Pascal): var x:integer; begin readln(x); while x 100 do begin if x mod 2 1 x := x div 2 else x := 3*x + 1 end; writeln(x); end.

rostislav2017 · Accepted Answer

// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию! begin   var x:=ReadInteger( Введите число: );   var (i,y):=(2,BigInteger(x));   while true do begin     y*=x;     Writeln(x, ^ ,i, = ,y);     i+=1     end end. Пример Введите число: 2 2^2=4 2^3=8 2^4=16 2^5=32 2^6=64 2^7=128 2^8=256 2^9=512 2^10=1024 2^11=2048 2^12=4096 2^13=8192 2^14=16384 2^15=32768 2^16=65536 2^17=131072 2^18=262144 2^19=524288 2^20=1048576 2^21=2097152 2^22=4194304 2^23=8388608...

MOGZ ответил