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

Question

Информатика: 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. где ошибка?

vavkina2016 · Answer

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

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. где ошибка?

Популярные вопросы