Учеба и наука
составить задачу в турбо паскале. - вопрос №477331
Последовательно по-одному вводятся нулевые числа.Ввод чисел прекращается, когда введена цифра 0.Эти числа могут быть записаны в одной переменной Х таким образом, что каждое последующее число заменяет предыдущее. Вычислить среднее арифметическое вводимых чисел.
ноябрь 26, 2012 г.
-
Всего ответов: 1
-
program pr;
var x,s,sr:real; k:integer;
begin
s :=0;
k:=0;
writeln('vvedite pervoe chislo');
readln(x);
while x<>0 do
begin
s:=s+x;
k:=k+1;
writeln('vvedite sleduyuchee chislo');
readln(x);
end;
sr:=s/k;
writeln('srednee=',sr:8:2);
readln
end.
Буду благодарна, если отметите
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.