Question

Составить программу по блок-схеме​

Answer 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