давно
Старший Модератор
31795
6196
17.11.2019, 02:39
общий
это ответ
Здравствуйте, JonMoxley!
Смотрите код:
[code lang=pascal]var
a,b:real;
c:integer;
begin
a:=0;
c:=0;
repeat
write('enter number:=');
readln(b);
if b<>0 then inc(c);
a:=a+b;
until b=0;
writeln('result:=',a/c);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.