Предмет: Информатика,
автор: Listvichka177
ответ 23, помогите, пожалуйста, написать программу
Приложения:

Ответы
Автор ответа:
2
Ответ:
var x, c, j :integer;
begin
writeln('выведем все х, алгоритм для которых будет срабатывать');
for j:=1 to 100 do begin (*цикл до 100, иначе не сработает while*)
x:=j; c:=0;
while x<100 do begin
if c>3 then begin (* если зациклился алгоритм, то берём следующий X*)
c:=-1; break;
end;
inc(c);
if x mod 2 < 1 then x:=x div 2
else x:=3*x+1
end;
if c>0 then (* выводим только не зацикленные значения*)
writeln(j,' => ', x);
end;
end.
Приложения:

Listvichka177:
Спасибо!!!!!!!!!!!!♡♡♡♡♡♡♡♡♡♡
Похожие вопросы
Предмет: Английский язык,
автор: zmejukaa
Предмет: Русский язык,
автор: mardonbek
Предмет: Русский язык,
автор: foreva1987
Предмет: Математика,
автор: sashaml
Предмет: Литература,
автор: familypets001