Question

Переделайте эту программу с помощью цикла repeat. var s, n: integer; begin s:= 72; n:= 0; while n < =10 do begin s:= s – 8; n:= n + 3; end; writeln(s); end.

Answer 1

Ответ:

var s, n: integer;

begin

s:= 72;

n:= 0;

repeat

s:= s - 8;

n:= n + 3;

until n > 10;

writeln(s);

end.

Объяснение:

repeat ... until - цикл с постусловием, выполняется пока условие ложное

while - цикл с предусловием, выполняется пока условие истинное

Меняем условие на обратное

Answer 2

Вы можете переписать данную программу с использованием цикла repeat следующим образом:

pascalCopy code
program RepeatExample;

var
  s, n: integer;

begin
  s := 72;
  n := 0;

  repeat
    s := s - 8;
    n := n + 3;
  until n > 10;

  writeln(s);
end.

Этот код будет выполнять те же самые вычисления, что и ваш исходный код, но с использованием цикла repeat. Он будет уменьшать значение s на 8 и увеличивать значение n на 3 до тех пор, пока n не станет больше 10, и затем выведет результат.