16.12.2008, 22:55
|
|
Участник форума
Регистрация: 29.07.2007
Сообщений: 124
Провел на форуме:
1266562
Репутация:
60
|
|
Сообщение от jawbreaker
MRAK9
Код:
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);
readln;
end.
и чего это? к чему оно? чтот я не понял...
|
|
|