Помогитеее ош срочно❤️

Помогитеее ош срочно❤️
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы