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