Var s, k: integer;
begin
s:=100
k:=8;
repeat
s:=s-k;
k:=k-1;
until k<0;
writeln(s)
end.
Срочно пожалуйста!!
Ответы
Ответ дал:
0
S = 64 это ответ работы программы
Похожие вопросы
2 года назад
2 года назад
2 года назад
9 лет назад
9 лет назад