Плиз побыстрее много баллов

Плиз побыстрее много баллов
Гость
Ответ(ы) на вопрос:
Гость
Var a,k,s :integer; sr:real; begin s:=0; a:=12; k:=0; repeat s:=s+a; k:=k+1; a:=a+1; until (a>99); sr:=s/k; writeln (sr); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы