Var s, k: integer; begin s:=100 k:=8; repeat s:=s-k; k:=k-1; until k<0; writeln(s) end....

Question

Var s, k: integer;
begin
s:=100
k:=8;
repeat
s:=s-k;
k:=k-1;
until k<0;<br> writeln(s)
end.
Срочно пожалуйста!!

Answer 1

S = 64 это ответ работы программы