Question

Постройте блок схему алгоритма, который увеличивает или уменьшает введённое число на 1, до тех пор, пока оно не станет равно 100.

Answer 1

Var i: integer;
begin
readln(i);
while i<>100 do
begin
if i>100 then dec(i) else inc(i);
end;
end.

Answer 2

К сожалению, я не могу построить блок-схему алгоритма, так как я текстовая модель и не имею возможности создавать графические изображения. Однако, я могу объяснить алгоритм на словах.

Алгоритм, который увеличивает или уменьшает введенное число на 1 до тех пор, пока оно не станет равно 100, может быть представлен следующим образом:

1. Введите число. 2. Проверьте, равно ли введенное число 100. Если равно, перейдите к шагу 6. 3. Если число меньше 100, увеличьте его на 1. 4. Если число больше 100, уменьшите его на 1. 5. Перейдите к шагу 2. 6. Выведите результат.

Это базовый алгоритм, который будет повторяться до тех пор, пока введенное число не станет равным 100.