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.

Где ошибка?

Question

Ипат

22 ноября, 08:03

+3

Ответы (1)

Знаете ответ на вопрос?

Антонидка · Answer 1

После репит

begin readln (a) if a mod ... понял? ты; не там поставил

Program nn;var a, b, i:integer; c:real;begini:=0;b:=0;repeatreadln (a) ; beginif a mod 8=0then b:=b+a;i:=i+1;end;until a=0;c:=b/i;writeln (c) ;end.Где ошибка?