17.12.2008, 00:06
|
|
Постоянный
Регистрация: 01.09.2007
Сообщений: 866
С нами:
9838060
Репутация:
1224
|
|
Сообщение от Fepsis
Не работает..)  jawbreaker кавычку не закрыл
Код:
Program summa;
uses crt;
var m:integer;
x,s,n: real;
begin clrscr;
s:=0;
writeln('BBeDuTE 4uCJIA');
repeat readln(n);
s:=s+n;
m:=m+1;
until n=0;
writeln(s / (m-1));
readln;
end.
Так же как и в задаче №1, в этой задаче ввод ноля означает окончание ввода.. Мне кадется "0" не надо считать слагаемым, поэтому и (m-1)...
я както невнимательно просмотрел,там еще переменной m значение надо присвоить,начальное
|
|
|