ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Сообщение от Sinay

jawbreaker тебе написал,разве не работает?

Не работает..)

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)...