Ответы на вопрос:
Var i,sum,m,pr: real; begin i: =1; m: =-1; writeln('вводите рост учеников, когда закончите введите 0.'); while (i< > 0) do begin readln(i); sum: =sum+i; m: =m+1; end; pr: =sum/m; writeln('средний рост: ',pr); end.
Популярно: Информатика
-
DarinaKimovsk26.04.2023 17:45
-
dreytes22.04.2022 15:43
-
akitaeva111.12.2020 12:10
-
Tittans721.01.2022 09:13
-
superstudio5722.11.2020 08:53
-
Ratatui34528.11.2022 13:22
-
софа1111111111224.06.2020 22:02
-
concon123327.03.2021 04:46
-
Черныйкотик00789609.03.2021 21:49
-
k1974515.05.2022 23:36