Показать сообщение отдельно
Старый 10.12.2013, 20:55   #9 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Мага Посмотреть сообщение
вот так получается но задача полностью не выполнена же ?
Ладно, раз Вы сами хоть что-то попытались сделать - помогу. Вот Вам рабочий код:
Код:
Var
 A,Sum,n:Integer;
Begin
 Sum:=0;
 n:=0;
 Repeat
  Write('Next number: ');
  Readln(A);
  if A<>0 then
   begin
    Inc(n);
    Inc(Sum,A);
   end;
 Until A=0;
 If n<>0 then Writeln('Reasult= ',Sum/n:0:3);
 Readln
End.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070