Переделайте эту программу с помощью цикла 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.
var s, n: integer;
begin
s:= 72;
n:= 0;
while n < =10 do
begin
s:= s – 8;
n:= n + 3;
end;
writeln(s);
end.
More Questions From This User See All
Answers & Comments
Ответ:
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 - цикл с предусловием, выполняется пока условие истинное
Меняем условие на обратное