Ответы
Ответ дал:
1
var s, k, a:integer;
var sr:real;
begin
s := 0;
k := 0;
a := 12;
while a < 99 do
begin
s := s+a;
k := k+1;
a := a+1;
end
; sr := s/k
; writeln(sr) ;
end
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
9 лет назад