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 - цикл с предусловием, выполняется пока условие истинное

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