• Исправьте ошибки во фрагменте программы:
    n:=1
    begin
    repeat
    write ( ' n=', n:5 ) ;
    until n<=10
    end;

Ответы 1

  • var n:byte;begin n:=1; repeat writeln('n=', n:5); n:=n+1; until n>=10end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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