Предмет: Информатика,
автор: boryas
Написать программу проверяющую гипотезу Сиракуза для всех чисел от N до M. Значения N и M вводятся пользователем с клавиатуры. Результатом работы программы является последовательность чисел заканчивающихся ( по гипотезе Сиракуза) единицей.
Ответы
Автор ответа:
0
var
a, b, n, i: integer;
begin
readln(a, b);
for i := a to b do
begin
n := i;
write(n);
while n <> 1 do
begin
if (n mod 2) = 0 then
n := n div 2
else
n := (3 * n + 1) div 2;
write(' -> ', n);
end;
writeln;
end;
end.
чесно передрано с некого сайта и доработано под задачу
a, b, n, i: integer;
begin
readln(a, b);
for i := a to b do
begin
n := i;
write(n);
while n <> 1 do
begin
if (n mod 2) = 0 then
n := n div 2
else
n := (3 * n + 1) div 2;
write(' -> ', n);
end;
writeln;
end;
end.
чесно передрано с некого сайта и доработано под задачу
Похожие вопросы
Предмет: Українська мова,
автор: dyaromenko2003
Предмет: Математика,
автор: nursaaaltas
Предмет: Математика,
автор: vydyburavana3
Предмет: Химия,
автор: payana7777
Предмет: Биология,
автор: larisa7473