Program nn; var a,b,i: integer; c: real; begin i: =0; b: =0; repeat readln(a); begin if a mod 8=0 then b: =b+a; i: =i+1; end; until a=0; c: =b/i; writeln(c); end. где ошибка?

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку