Информатика, опубликовано 2018-08-22 23:31:36 by Гость
Для проверки физического развития проверяют рост школьников.Составте программу,запаршивающую рост очередного школьника т вычислявшую после медосмотра средний рост прошедших осмотор.Количество школьников заранее не известно.
Ответ оставил Гость
Var
i: integer;
r, s, sr: real;
begin
while i>=0 do
begin
i:=i+1;
write(Рост , i, -го ученика: );
readln(r);
s:=s+r;
sr:=s/i;
writeln(i, учеников. Средний рост: , sr);
end;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на