Ответ(ы) на вопрос:
Гость
Var
a,b,c:integer;
begin
a:=2;
b:=10;
c:=3;
repeat
a:=a+c;
b:=b-1;
c:=c+1;
until a>b;
if a>b then
write('C=',c*b);
end.
Не нашли ответ?
Похожие вопросы