Регистрация
Бако777
02.07.2021 12:44
Информатика
Есть ответ 👍

Program example; var x,y:integer;
begin
writeln ('Введите число');
readln(x);
while x<>1 do
if x mod 2=1 then begin x:=x*3+1;
end
else begin x:=x div 2;
end;
y:=x;
readln(y);
writeln (1);
end.
Проблема в том, что раскаль выводит изначальный результат х, а нужно, чтобы был х спустя несколько операций. В чём я ошибся?

118
448
Посмотреть ответы 1

Ответы на вопрос:

радмир140
радмир140
4,6(97 оценок)

нужно 1 кг певести в грами,и поделить на три

Популярно: Информатика