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

Ответы 1

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

      mckenna
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years