Предмет: Информатика,
автор: BigBoss32
Для проверки физического развития проверяют рост школьников.Составте программу,запаршивающую рост очередного школьника т вычислявшую после медосмотра средний рост прошедших осмотор.Количество школьников заранее не известно.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Физкультура и спорт,
автор: Katyakostina2706
Предмет: Русский язык,
автор: tilereasy
Предмет: Қазақ тiлi,
автор: muratgulbostan
Предмет: Литература,
автор: Тура