Question

var
s,i,k: integer;
begin
k:=0; s:=0;
for i:=300 to 900 do
begin
s:=s+i;
inc(k);
end;
writeln('srednee=',s/k);
end.
переведите с паскаля на кумир жпжпжпжпжппж СРОЧНО!!!!

Answer 1

Ответ:

алг  

нач

цел k,s,i

k:=0

s:=0

i:=300

нц пока i <> 901

s:=s +i

k:=k+1

i:= i + 1

кц  

вывод 'srednee=',s/k

кон